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66 Turbo C does look like 
What We’ve All Been 
Waiting For: a full- 
featured compiler that 
produces excellent code in 
an unbelievable 
hurry... 
_.. moves into a class all 
its own among full- 
featured C compilers... 
_.. Turbo C is indeed for 
the serious developer . . . 
One heck of a buy—at 
any price. 


Michael Abrash 
Programmer’s Journal D 


64 Borland Internation- 
al’s Turbo Pascal, Turbo 
Basic and Turbo Prolog 
automatically identify 
themselves, by virtue of 
their “Turbo” forenames, 
as superior language pro- 
ducts with a common pro- 
gramming environment. 
The apellation also means, 
to many PC users, a 
“must have” language . . . 
_..To us, Turbo C looks 
like a coup for Borland. 
Garry Ray, PC Week I 





Reflex: The Database 
Manager 


ith Reflex, we brought 
new eyes and under- 
standing to spreadsheets 


with unheard-of graphics, charts, 
plots and analysis. And just as we 
do in our Language products, 
we’ve added our Reflex Work- 
shop”, a “business toolbox” 
which gives you everything you 
need to set up and run more 
than 20 different kinds of 
business. 
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We looked at all the features of 
current word processors and fig- 
ured out how to make them bet- 
ter. That’s how we designed 
Sprint: The Professional Word 
Processor, which you'll soon dis- 
cover is faster, easier, smarter 
than the rest, and probably the 
most powerful word processor 
ever written. Sprint is well worth 
the wait—and you won't be wait- 
ing long. 


66 Reflex actually im- 
proves on 1-2-3 in several 
respects. 

William Casey, PC Tech Journal JJ 


ké Reflex and Reflex 
Workshop may be the 
best bargain in software 
today. Highly recom- 
mended. 

Jerry Pournelle, Byte bb] 








66 Sprint: The Word 
Processor is ad many- 
splendored package. 

Ken Greenberg, PC World JJ 


Eureka’: The equation 
solver for Scientists, 
Engineers, Students and 


Professionals 
E forward in equation solv- 
ing as spreadsheets have 
been for accounting and plan- 
ning. Using Eureka with your PG 
gives you high performance in 
desktop engineering. A must! 





Why it’s good for you that 
Borland’s in the business of 
Business 


t Borland, small is actually 

Apt Either Joy or Anne 
or Dyane will answer the 

phone—but don't get fresh, 
because they’re all happily mar- 
ried. Call Borland and you talk to 
an actual human being who 
doesn’t give you the big corpo- 
rate runaround, but the right 
extension number. You'll get 
help, whether it’s tech support, 
questions about new products, or 
whatever. (We’ve always had a 
60-day money-back guarantee, So 
we don’t get too many calls 
about that. ) 


ureka is as much a step 





66 Eureka is fast, and 
simple to use. 
Michael Miller, InfoWorld JJ 





Sprint’: Bringing all that 
technology together 


ord Processors? There 
are a lot of good ones 
around. WordPerfect’, 


WordStar’ 4.0, and MicroSoft* 
Word are good products. But to 
compete, we had to build a bet- 
ter product. And using some of 
the technology we pioneered in 
our fast compilers, we set Out to 
build the best professional word 
processor ever written. 

We spent a lot of time listening 
to word processor users. Finding 
out what they liked, and what 
they really didn’t like about the 
programs they were using. 


When you’re small, you try 
harder, so what we’ve done is 
just that. 





~ Borland 
has to be a 
whole lot better 
because our 
competition 
is a whole lot 

bigger 














so we have to try harder. Out-think them, out-smart them, out- 
pace them, out-perform them—because we obviously can’t 
out-spend them. 
What that means to you—which is all that really matters—is that 
you now have access to the world’s fastest compilers, because we 
were forced to invent them to compete with the giants. We may be 


smaller than they are, but we’re absolutely, positively not slower 
than they are. 


\ t Borland we’re competing with giants like Microsoft and Lotus, 


In the long run what really counts is technological excellence. 
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Our technology is so 
advanced, it’s easy to use 


ith Turbo Pascal® we 
invented fast compil- 
ers, and followed that 


technological breakthrough 
with Turbo Prolog’, then Turbo 
Basic’, then Turbo C’ Building 
these fast compilers is not an 
easy task. It was and is “the lit- 
tle guy” taking a giant step. 
And having transformed Lan- 
guages with our new superfast 
compiler technology, we’ve 
turned the same power loose 
onto our Business products 
like SideKick’ and Reflex’:The 
Database Manager. 


ki SideKick continues 


to influence not only 
the utilities market but 
the entire software 
industry. 


William Urschel, PC World bb 


When Borland was founded 
4 years ago, the software 
industry technology level was 
about C- on a scale of A to F. 
Which was and is a perfect 
opportunity for a technology- 
driven company like Borland. 
Call us “techies,” but we’re 


developers, technicians, tinker- 


ers who know how to make 
programs run faster, do more, 
be more and let you fully use 
the hardware power you’ve 
paid for. 


At Borland, Price is one 
thing, but Technology is 
the main thing 


T here’s no sense in the 
“price being right” if the 
product is wrong. A use- 
less product is something you 
can’t give away. Technical 
excellence and superiority 
always comes ahead of Price. 
Always has. Always will at Bor- 
land. Our technical leadership 
began when we invented fast 


compilers and hasn’t been 
matched since. 
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Turbo Pascal: The world- 
wide standard 


ascal was asleep before 
Pp we transformed it with a 

technical shot in the arm. 
Our unique ability to create 
spectacularly fast compilers 
was the driving force behind 
Turbo Pascal’s worldwide 
SUCCESS. 


kf For the IBM PC, the 
benchmark Pascal com- 


piler is undoubtedly 


Borland International’s 
Turbo Pascal. 
Garry Ray, PC WEEK JJ 


Turbo Basic: BASIC raised 
to a new power 


e’ve raised BASIC 
from the dead with 
our recent high-speed 


Turbo Basic. Of course, Micro- 
soft will try to sell you their 
“QuickBASIC,” but we think 
you're interested in “fast,” not 
“quick.” Because we're a 
smaller company, we had to 
make Turbo Basic the “best 
BASIC development environ- 
ment ever written.” Otherwise, 
we'd be out of business. We try 
harder. 


bf Borland Interna- 
tional’s Turbo Basic is 
unquestionably an out- 
standing software 
product. 


Giovanni Perrone, PC WEEK JJ 


bf Turbo Basic is a 
compiled BASIC. This 
gives it execution speeds 
that leave standard 
interpretive BASICs like 


BASICA and GW BASIC 


im the aust. 


William Zachmann 
COMPUTERWORLD JJ 


Turbo Prolog: The natural 
language of Artificial 
Intelligence 

urbo-charging Prolog 

was an enormous chal- 

lenge. Creating a devel- 
Opment environment on an 
ordinary PC that would rival 
those found on dedicated AI 
workstations like Sun and 
Apollo was deemed impossi- 


ble. Enter Turbo Prolog. Exit 
the rest. 


44 Turbo Prolog has 
one of the most power- 
ful user interfaces ever 
seen in a software 
development system. 


Tom Swan 
Programmer’s Journal yb] 


66 If yow’re at all inter- 
ested in artificial intelli- 
gence, databases, expert 
systems, or new ways of 
thinking about pro- 
gramming, by all means 
plunk down your $100 
and buy a copy of 
Turbo Prolog. 

Bruce Webster, Byte JJ 


Turbo C: Perhaps the 
most powerful profes- 
sional development 
environment ever written 


e’ve brought tomor- 
row’s technology to 
Turbo C, which is so 


fast that it makes the rest look 
like dead Cs. We’ve given 
Turbo C a revolutionary user 
interface making it a wonder- 
ful productivity booster. And 
in keeping with our commit- 
ment to open architectures, we 


are even offering our users the 


opportunity to license the 
source code to Turbo C’s run- 


time library. 





Borland Software: Technical superiority, 
innovation and high performance 


Turbo Pascal 
Numerical 
Methods 
Toolbox” 


High-performance, 
state-of-the-art 
numerical routines 
for Turbo Pascal® 
programmers. A 
must for Scientists, 
Students and 
Engineers! 


Only $99.95 





Turbo C° 


It’s the fastest, 
most powerful, 
full-featured C 
compiler at any 
price. It’s the one 
you've been 
waiting for! 


Only $99.95 


Turbo Prolog 
Toolbox” 

The new collection 
of efficient, “smart” 
tools for use with 
our highly-acclaimed 
Turbo Prolog,® the 
natural language of 
Artificial Intelligence 


Only $99.95 


Turbo Basic® 
It’s the high-speed 
BASIC you’d expect 
from Borland. A 
complete develop- 
ment environment 
including an amaz- 
ingly fast compiler, 
interactive editor 
and trace debugging 
system. Compatible 
with BASICA 


Only $99.95 


Eureka: 
The Solver” 


The innovative, 
easy-to-use 
equation solver. A 
must for Scientists, 
Engineers, Archi- 
tects, Financial 
Analysts, Students, 
Educators and 
other Professionals 


Only $99.95 


Te uae 


Pi bf 
F Pr ae kd 
Mati 
salves! 
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For the dealer nearest you 
or to order by phone call 


(800) 255-8008 


in CA (800) 742-1133 
In Canada (800) 237-1136 


All Borland products are trademarks or registered 
trademarks of Borland International, Inc. or 
Borland/Analytica, Inc. Other brand and product 
names are trademarks or registered trademarks of 
their respective holders. Copyright 1987 Borland 
International BI-1126BW 
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ANOTHER 
PLUS FROM 
BLAISE 
COMPUTING 


The best just got bet- 
ter! Turbo POWER 
TOOLS, acclaimed as 
the best programmer 
support package for 
Turbo Pascal, now has 
even more functions, more detailed docu- 
mentation and more sample programs. 


NO SECRETS 


Turbo POWER TOOLS PLUS is crafted so 
that the source is efficient, readable and 
easy to modify. We don’t keep secrets! We 
tell you exactly how windows are managed, 
how interrupt service routines can be writ- 
ten in Turbo Pascal, and how to write mem- 
ory resident programs that can even access 
the disk. Maybe you’ve heard of some un- 
documented DOS features that resident 
programs use to weave their magic. Turbo 
POWER TOOLS PLUS documents these 
features and lets you make your own magic! 


Here’s just part of the PLUS 
in Turbo POWER TOOLS PLUS: 


WINDOWS that are stackable, re- 
movable, with optional borders anda 
cursor memory. 

FAST DIRECT VIDEO ACCESS for 
efficiency. 

SCREEN HANDLING including 
multiple monitor and EGA 43-line 
support. 

POP-UP MENUS which are flexible, 
efficient and easy to use, giving your 
applications that polished look. 

INTERRUPT SERVICE ROUTINES 
that can be written in Turbo Pascal 


without the need for assembly lan- 
guage or inline code. 











Reprinted from PC Magazine, June 10, 1986 Copyright © 1986 Ziff-Davis Publishing Company 


Power Tools Plus” 


Window Routines. 
Memory Resident Routines. 


Routinely. 


INTERVENTION CODE lets you de- 
velop memory resident applications 
that can take full advantage of DOS 
capabilities. With simple procedure 
calls, you can ‘‘schedule”’ a Turbo 
Pascal procedure to execute either 
when a “hot key” is pressed, or ata 
specified time. 

PROGRAM CONTROL ROUTINES 
allow you to run other programs from 
Turbo Pascal, and even execute DOS 
commands. 


MEMORY MANAGEMENT allows 


you to monitor, allocate and free DOS- 
controlled memory. 


DIRECTORY AND FILE HAN- 
DLING support to let you take advan- 
tage of the newer features of DOS 
including networking. 


STRING procedures al- 
lowing powerful trans- - 


lation and conversion | YES, ene A WER TOOLS P- 
capabilities. l OTHER sa 050.00 8 Fe 


FULL SOURCE CODE 
for all included routines, 


sample programs and_ | Name: 


utilities. 1 chipping Ad 
DOCUMENTATION, ) city: 
TECHNICAL SUPPORT =| Vaca or 


and attention to detail that 


—_—_—_ 
—_—_— 


...one package stands out as 
the best support available for Turbo 
Pascal programmers: Blaise Com- 
puting’s Turbo Power Tools. This 
definitive set of prewritten Pascal 
functions and procedures will 
make the life of any programmer— 
from the beginner to the hard-core 
professional—easier and more 
productive. 


have distinguished 
Blaise Computing 
over the years. 


Turbo POWER 
TOOLS PLUS sup- 
ports Turbo Pascal 
Version 2.0 and 


later and is just 
$99.95. 


Another quality prod- 
uct from Blaise Computing: Turbo ASYNCH 
PLUS™ 

A new package which provides the crucial 
core of hardware interrupt support needed to 
build applications that communicate. 
ASYNCH PLUS offers simultaneous buffered in- 
put and output to both COM ports at speeds up 
to 9600 baud. The XON/XOFF protocol is sup- 
ported. Now it also includes the “XMODEM” 
file-transfer protocol and support for Hayes 
compatible modems. 

The underlying functions of Turbo ASYNCH 
PLUS are carefully crafted in assembler for effi- 
ciency and drive the UART and programmable 
interrupt controller chips directly. These func- 
tions, installed as a runtime resident system, 
require just 3.2K bytes. The high level function 
are all written in Turbo Pascal in the same 
style and format as Turbo POWER TOOLS 
PLUS. All source code gy is included for just 


$99.95. wy 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 


ORDER TOLL-FREE 800-227-8087 
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80386 PROGRAMMING: Developing 386 Applications... 16 
Today 

by Richard Relph 

Despite what you may have heard, programming for the 80386 
doesn’t require waiting for a 386 version of Microsoft's OS /2. 
Richard examinessome of the development options currently 
available. 

CODING: 8088 Assembly-Language Programming 
Techniques 

by Thomas Disque 

Some not-so-obvious tricks to make 8088 code fast and tight 
LANGUAGES: Logic and Knowledge Representation 

in PROLOG 

by Richard Butrick 

The differences between formal logic and PROLOG can lead tosome 
nasty surprises. Richard offers some warnings and workaround 
solutions. 

LANGUAGES: Multitasking With Turbo Pascal 
by Craig A. Lindley 

Turbo Pascal’s procedures and stack handling offer amechanism 
for implementing a nonpreemptive multitasking scheme. 
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About the Cover 
Most of the props for this shot, 
with the probable exception of 
the skeleton, are items that any 
programmer may have lying 
around. The real killer, of course, 
is the missing software. (Special 
thanks to Donald Knuth for an 
outstanding reference and to 
Dennis Brothers for the brass rat.) 


























C CHEST 
by Allen Holub 

Allen solves another problem in moving programs between MS- 
DOS and Unix machines with a curses windowing package for MS- 
DOS. 

16-BIT SOFTWARE TOOLBOX 
by Ray Duncan 

Ray takesa look at some of the tools available for developing 80386 
applications. He also reviews some advanced Unix books and 
resumes the discussion of assembly languages versus high-level 
languages. 

STRUCTURED PROGRAMMING 
by Michael Ham 

Mike offerssomerules for software design based not on theory but 
on experience. 
ARTIFICIALINTELLIGENCE 
by Ernest R. Tello 

In the first of two columns on the Xerox 1186 AI workstation, Ernie 
examines the hardware and working environment of this new 
LISP machine. 


94 










106 







This Issue 

Are you suffering from those 
wait-another-year-for-the-gang- 
in-Redmond blues? This month 
both Richard Relph and Ray 
Duncan examine some of 386 
development tools already 
available. 


















112 
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Next Issue 
Next month’s issue has a special 
emphasis on tools for C 
programmers. The lead article 
examines both the pleasant and 
troublesome surprises with the 
coming ANSI standard C and 
offers some prescriptions and 
preventive measures. 
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Nobody ever said programming PCs was 
supposed to be easy. 

But does it have to be tedious and time- 
consuming, too? 

Not any more. 

Not since the arrival of the remarkable new 
program on the left. 

Which is designed to save you most of the 
time you're currently spending searching through 
the books and manuals on the shelf above. 

The Norton On-Line Programmer’s Guides” 
are a quartet of pop-up reference packages that do 
the same things in four differ- 
ent languages. 4 

Each package consists of (=== 
two parts: Amemory-resident —& 
instant access program. 
And a comprehensive, { 
cross-referenced database ~~, —_ 

crammed with just about — 
everything you need to know to program in your 
favorite language. 

And when we say everything, we mean 


everything. 


Everything from information about language 


Designed for the IBM® PC, PC-AT and DOS compatibles. Available at most software 
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syntax to a variety of 
tables, including ASCII 
characters, line draw- 
ing characters, error 
messages, memory 
usage maps, important 
data structures and 
more. 

How much more? 

Well, the databases 
for BASIC, C and Pas- 
cal give you detailed listings of all built-in and 
library functions. 

While the Assembly database delivers a com- 
plete collection of DOS service calls, interrupts 
and ROM BIOS routines. 

You can, of course, find most of this informa- 
tion in the books and manuals on our shelf. 

But Peter Norton—who’s written a few books 
himself—figured you'd rather have it on your 
screen. 

In seconds. 

In full-screen or moveable half-screen mode. 

Popping up right next to your work. Right 
where you need it. 


A Guides reference summary 
screen (shown in blue) pops up on 
top of the program you're working 

on (shown in green). 





ol f | 
me people 


labor. 


_ This, you’re probably 
thinking, is precisely the 
kind of thinking that pro- 
duced the classic Norton 
Utlities.™ 


And you're right. 
But even Peter Nor- 
9 | ] e 
Summary data expands on ton cant nk of every- 
command into extensive detail. ng. 
ee Which is why there’s 


a built-in compiler for 
creating databases of your own. 

And why all Guides databases are compatible 
with the instant access program in your original 
package. 

So you can add more languages without spend- 
ing a lot more money. 

To get more information, call your dealer or 
Peter Norton Computing. 

And ask for some guidance. 


Peter Nortuor- 


COMPUTING 





dealers, or direct from Peter Norton Computing, Inc., 2210 Wilshire Blvd., #186, Santa Monica, CA 90403. 213-453-2361, Fax 213-453-6398, MCI Mail: PNCI ©1987 Peter Norton Computing 


CIRCLE 87 ON READER SERVICE CARD 





iirc 


EDITORIAL 





his month's cov- 

er whimsically il- 
lustrates the frustra- 
tion some program- 
mers have expressed 
over the delivery by 
IBM of 286- and 386- 
based machines de- 
signed to run Micro- 
soft’s OS/2  mult- 
tasking operating sys- 
tem when there will not be a com- 
mercially available OS/2 this year. 

The announced OS/2 timetable is: 
(1) Software Development Kits in de- 
velopers’ hands by next month, in- 
cluding kernel software, develop- 
ment languages and tools, and specs 
for the Windows Presentation Man- 
ager and LAN Manager; (2) Windows 
Presentation Manager and LAN Man- 
ager shipped as SDK updates by No- 
vember; (3) OS/2 kernel shipped to 
OEMs by the end of the year; and (4) 
delivery dates for Windows Presen- 
tation Manager and LAN Manager to 
OEMs and anything at all to end users 
to be announced. That's for the 286/ 
386 version of OS/2; no timetable has 
been announced for the later release 
that will take advantage of all the ca- 
pabilities of the 386. 

How you view that schedule de- 
pends, perhaps, on whether you 
view OS/2 as the operating system of 
the 1990s or as Microsoft's response to 
the AT. 

Last year I watched a number of 
technical journalists racing with Bill 
Gates to write a program to perform 
a simple task. Storm the Gates, the 
contest was called, and Bill won it, 
using QuickBASIC, hands down. As I 
see it, Bill’s current challenge is to get 
OS/2 out before Don Knuth com- 
pletes The Art of Computer Program- 
ming, and that may be a tougher 
challenge. 

Meanwhile, you don't have to wait 
for OS/2 to begin writing software 
for the 386 machines. Our lead article 
this month details some ways in 
which you can get started today. 

And, meanwhile—well, there are 





a lot of meanwhiles. 
Digital Research has 
reorganized, with a 
new CEO and with 
founder Gary Kildall 
taking a more active 
role after a hiatus of 
three years. DRI has 
ported its Concurrent 
DOS to the 386 and also 
has a real-time OS, 
FLEXOS 386, in beta test now. DRI’s 
products have been a lot better than 
the company’s marketing in the past; 
we'll see if that continues. THEOS soft- 
ware has ported its multiuser, multi- 
tasking THEOS operating system to 
the 386. AT&T’s Unix and Microsoft's 
Xenix are converging to one product 
for the 386. Microsoft perceives the 
386 multiuser market to be small, but 
there are a lot of single-user Unix 
workstations that may be replaced 
by 386 machines, and there will be 
pressure to put Unix on those 386s. 

Still, the most common operating 
system on 386 machines in 1988 will 
probably be MS-DOS 3.x. 

None of this should be taken as evi- 
dence that we don’t think OS/2 will 
be important for 286 and 386 ma- 
chines. We are sending people to the 
developer conferences and are even 
setting up an OS/2 development lab 
in our offices. DDJ editors who have 
worked with OS/2 say it is an impres- 
sive piece of work. We do think OS/2 
will be important—when it arrives. 


In my remaining space I'd like to 
introduce: DDJ’s new editor, Tyler 
Sperry. Tyler meets all my criteria 
for a good editor: good technical cre- 
dentials, an appreciation for the ef- 
fective use of English, willingness to 
work long hours for low pay. .. . Ty- 
ler is every bit as wonderful as OS/2, 
and he’s here now. In fact, you can 
meet him on page eight. 


Michael Swaine 
editor-in-chief 
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Our thanks to NASA for supplying this computer enhanced ultraviolet photo taken by Skylab IV of a solar prominence reaching out 350,000 miles above the sun’s surface 








Genius Begins With A Great Idea ... 


What follows is the time consuming task of giving 
form and function to the idea. 

That's why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and alittle bit 
more genius. 





Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System .. . .$199 
* optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options « Manx Aztec 8086/80x86 macro assembler 
e Aztec overlay linker (large/small model) © source 
level debugger ¢ object librarian ¢ 3.x file sharing & 
locking ¢ comprehensive libraries of UNIX, DOS, 
Screen, Graphics, and special run time routines. 


Aztec C86-d Developer System ...... $299 
* includes all of Aztec C86-p ¢ Unix utilities make, 
diff, grep ¢ vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System. .... $499 
¢ includes all of Aztec C86-d ¢ Source for library rou- 
tines ¢ ROM Support  CP/M-86 support ¢ One year 
of updates. 


Aztec C86 Third Party Software 

A large array of support software is available for 
Aztec C86. Call or write for information. The following 
is a list of the most requested products: Essential 
Graphics ¢ C Essentials ¢ C Utility Library ¢ Green- 
leaf Com. ¢ Greenleaf General ¢ Halo ¢ Panel ¢ PC- 
lint ¢ PforCe * Pre-C ¢ Windows for C * Windows for 
Data C terp ¢ db Vista * Phact ¢ Plink86Plus ¢ C-tree. 


C compiler, 8080/Z80 assembler, linker, librarian, 


UNIX libraries, and specialized utilities. 

Aztec C Il-c (CP/M-80 & ROM)........ $349 
Aztec Cll-d (CP/M-80).............. $199 
Aztec C80 (TRS-80 3&4)............ $199 














Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional ...... $199 
A price/feature/performance miracle. System in- 
cludes: optimized C ¢ 68000/680x0 assembler « 
68881 support ¢ overlay linker ¢ UNIX and Amiga 
libraries ¢ examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p ¢ the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional...... $199 
* optimized C © 68000/680x0 assembler * 68881 
support © overlay linker ¢ UNIX and Macintosh |i- 
braries ¢ examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p © the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





Aztec C65 is the only commercial quality C com- 
piler for the Apple Il. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 
braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
¢ runs under ProDOS ® code for ProDOS or DOS 3.3 
Aztec C65-d Developer............. $199 


¢ runs under DOS 3.3 ¢ code for DOS 3.3 


ware, C-tree TM Faircom, Inc., Windows for C, | 
Radio Shack, Amiga TM Commodore Int'l., Unix 


An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets ................ $500 
ROM Support Package............. $500 





Call for information on Vax, PDP-11, Sun and other 
host environments. 


-_-_-_eree 


These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


CPG a vnk ne cov viendo ee $75 





Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 





To become a user call 800-221-0440. From NJ or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.0.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


MS is a registered TM of Microsoft, Inc., CP/M TM DRI, HALO TM Media Cybernetics, PANEL TM Roundhill Computer Systems, Ltd., 
Manx Software Systems PHACT 1M PHACT Assoc., PRE-C, Plink-86, Plink-86 + , P-Force TM Phoenix, db Vista TM Raima Corp., C-terp, PC-lint, TM Gimpei Soft- 
Windows for DATA TM Creative Solutions, Apple Ii, Macintosh TM Apple, Inc., TRS-80 TM 
TM AT&T, Vax TM DEC, Aztec TM Manx Software Systems. 





y way of intro- 
duction, let me 
say that the image on 
the right may look 
like the new editor of 
DDJ, but it isn’t. Sure, 
we both share the 
improbable name of 
Tyler Sperry and 
we're both generally 
the same size and 
shape. But don't be 
fooled. Anyone who knows me will 
instantly recognize the fellow in the 
photograph as an imposter because 
he’s wearing (horrors!) a tie. As a re- 
formed hacker, I tend toward the 
view that t-shirt and jeans are ade- 
quate attire for nearly any social 
occasion. 

Besides, I’m much better looking 
than he is. (Trust me.) 

If you were to visit the real me at 
the DDJ offices, you'd probably be 
shocked by a few other conflicts be- 
tween that picture and reality. In 
contrast to the benign, seamless 
background of that photo, I spend 
my days (and sometimes nights) in an 
office crammed with books, papers, 
computers, and software. In short, 
it’s your typical programmer's nest 
combined with editorial clutter. 

Because this would be your first 
visit with the new editor, we'd prob- 
ably spend most of our time getting 
to know each other. I'd tell you some 
wildly funny (and completely un- 
printable) stories culled from over 15 
years of playing with computers. Sto- 
ries about my hardware days play- 
ing with the innards of video games 
or my time working in Kaypro’s en- 
gineering department. There'd be 
some libelous stories from my stint as 
editor and publisher of Profiles, Kay- 
pro’s user magazine. 

After all that talk about me, I’d 
break out a couple of cans of Jolt and 
we'd start talking about you and 
your interests. (I’m always on the 
lookout for new writers for DDJ.) 








We'd discuss the In- 
tel and Motorola pro- 
cessors, and I might 
even confess some of 
my youthful indis- 
cretions with the RCA 
1802 and National’s 
16000 family. 

DDJ being the kind 
of magazine it is, 
sooner or later we'd 

—| have a religious argu- 
ment about languages. You'd proba- 
bly start innocently enough with a 
comment about your favorite lan- 
guage, and I'd talk about how I've 
tried a dozen computer languages 
from ALGOL to Z80 assembly and nev- 
er found one that satisfied all my de- 
sires. If that didn’t work, I'd try pro- 
voking you by admitting that I do 
most of my programming in either 
Forth or assembly language. Eventu- 
ally you'd rise to the bait and I'd have 
snookered you into writing an article 
that demonstrated the virtues of 
your favorite language in a way that 
none of our readers had ever seen 
before. A conniving lot, these DDJ 
editors. 

Of course, you’ve only been visit- 
ing me metaphorically, so you'll 
have to take my word for how funny 
the stories are. And you'll also have 
to remind me by letter, CompuServe 
(76703,4266), or phone ((415] 366-3600) 
of what sort of article you were plan- 
ning to write for us and if you need 
one of our writer’s kits. The October 
issue will be all set by the time 
you read this, but there’s probably 
still time to getan article into our 
November graphics issue. We're al- 
ways looking for good articles, 
whether or not they reflect a partic- 
ular issue’s focus. 

Now, if you'll excuse me, I have a 
magazine to get back to. Thanks for 
stopping by, and stay in touch. 

<ds Tyler Sperry 

editor 





ARCHIVES 


Windows 

“Three examples: VisiCorp, Microsoft 
with Windows, Digital Research with Con- 
current DOS. In all three cases we have 
consistent out-of-schedule behavior. These 
were basically all companies that went 
from very small development groups to 
significantly larger development groups, 
and probably without project manage- 
ment.’”—Giacomo Marini, quoted in The 
Software Designer, DDJ, October 1984. 


Learning from Mistakes 

“One of the major frustrations in my life 
is my inability to remember to use facts 
and ideas I know perfectly well. When I 
look at programs written by my friends, I 
suspect the affliction may be well-nigh 
universal.” —Programming Pastimes and 
Pleasures, Charles Wetherell, DDJ, February 
1979. 

“Have you ever put two (or more) memo- 
ry boards into the same address location? If 
they are in RAM, the computer will work 
fine, except that there will be a lack of 
memory. This program scans all addresses 
and displays a map of memory as seen by 
the processor. This ‘lack of memory’ will 
be caught quickly and hopefully save some 
time from head-scratching.’’—“Memory 
Map Program for the Z80/8080,” Robert Al- 
kire, DDJ, January 1979. 


Ten Years Ago in DDJ 

‘In the early days of personal comput- 
ing (i.e. last year) hobbyists were happy to 
be able to display anything, jerkily or oth- 
erwise. Today, with lots of video displays 
available, byters can afford to be choosy. 
One of the features I’m looking for in my 
next video display is linear scrolling, 
where the whole page moves up one ras- 
ter line at a time. Has anybody seen 
one?’’— Jim Day, DDJ, June/July 1977. 

‘‘A San Francisco dealer in used comput- 
er equipment announced at the July 20th 
Homebrew Computer Club meeting that 
he has dozens of properly functioning 
2311-type hard-disc drives available for 
$350. Several people in both northern and 
southern California are currently complet- 
ing controllers for these *7 1/4 megabyte* 
drives that will plug into a S-100 bus.” — 
DDJ, June/July 1977. 

“TRIPPY COMPANY NAME NOTED 

“Joining the ranks of such straight-laced 
companies as Parasitic Engineering and 
Barefoot Computer Store, we recently not- 
ed a new California company, specializing 
in repairing sickly equipment: Micro- 
Mouse. Now, with a name like that, you 
*know* they gotta be good people.’’—DDJ, 
June/July 1977. 
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Microsoft Avoids Challenge 


We challenged Microsoft to a C compiler duel-to-the-finish, comparing compile, link and 
execution times, and we offered to stop advertising for two months if they won... 


by Roy Sherrill, President, Datalight 


Microsoft purchased our C-compiler 
during February 1987 and we still 
haven’t heard from them. OK, Micro- 
soft, we are extending our challenge 
deadline from April 1, 1987 to May 15, 
1987. After all, the Microsoft ad claims 
“the fastest C you’ve ever seen?’ Your 
reply, Microsoft! 


Walter says Optimum-C is better 


Walter Bright, the developer of Optimum 
C, says that Optimum C would win 7 out of 
10 benchmarks as compared to Microsoft C, 
V.4.0. Walter explained to me that Optimum 
C includes a unique global optimizer that 
helps create compact code while increasing 
execution speed up to 30%. By the way, 
Borland, Walter is still waiting for his copy of 
Turbo C® V.1.0. Borland’s ad claims ‘‘the 
fastest, most efficient and easy-to-use C 
compiler at any price.” 

After reviewing Borland’s benchmarks, 
Walter claims that Optimum C is faster. And, 
as for ease of use, all Datalight C compilers 
have been shipped with a free Learn C 
program for the last six months. Also, our new 
EZ Interactive Editor will show you each 
syntax error in your source code, then compile 
or “make” and run your program, all from 
within the editor. OK, so let the Microsoft 
challenge begin... 


We only ask the following... 


The benchmark suite will consist of the set 
of programs that Microsoft supplied to 
Computer Language for their February 1987 C 
compiler review issue. Microsoft will make 
available the programs to Datalight at least 
two weeks prior to the benchmarking. The 
benchmarking will be between Microsoft C 
4.0 and Optimum-C. It will occur at a mutu- 
ally agreed upon time and place. Interested 
individuals will be allowed to attend. The 
benchmarks will be compiled and run on a 
standard IBM PC-AT. 

There will be two separate tests for each 
program: compile and link speed, and execu- 
tion speed. For each test, a representative 
from each company will set up the compiler 
so that it performs at its best. 

The benchmarks will be adjusted so that 
they take sufficiently long to run, that the 
tolerance involved in timing them is insig- 
nificant. The winner is determined by the 
compiler with the faster execution times for 
the majority of the benchmarks. We’d like 
an answer from Microsoft no later than May 


ie, dO 7 


So what’s a global optimizer? 


A global optimizer looks at an entire 
function at once, analyzing and optimizing 
the whole function. A technique called data 
flow analysis is used by Optimum-C to gather 
information about each function. This 
enables your compute-bound programs to 
execute as much as 30% faster after global 


optimization. But, there is one catch...because 
the global optimizer ruthlessly searches for 
ways to speed-up execution speed and mini- 
mize memory usage, it has relatively slow 
compile times. No need to worry, though, 
because you can merely turn the global opti- 
mizer off. In fact, you can select all, none, or 
part of the following optimizations: constant 
propagation, copy propagation, dead assign- 
ment elimination, dead variable elimination, 
dead code elimination, do register optimiza- 
tions, global common subexpression elimi- 
nation, loop invariant removal, loop induction 
variables, optimize for space, optimize for 
time, and very busy expressions. 


ROM-it Speeds ROM Development 


ROM. it provides the extra support needed 
to speed completion of your ROM applica- 
tions. ROM-it includes a ROMable C start 
up routine, and the BLAZE Intel hex utility. 
ROM. it also includes a library of ROMable 
functions that allow full access to the 8086, 
including interrupt handling in C, access 
to all of memory, and reading and writing 
I/O ports. 

Extra support is also available for remote 
debugging and multi tasking. The remote 
debugger supports full symbolic debugging of 
the application in the target machine, from 
the PC. 

Please call for more information! 


Try Optimum-C risk free 


Try Optimum-C for 30 days and if you are 
not 100% satisfied return it for a full refund. 
“Also available is a C tutorial which is a com- 
bination workbook and floppy disk to help 
lead you through the C language with tutor- 
lals, quizzes, and program exercises. 


O.K. Microsoft, it’s up to you. We’ve put 
two months of advertising on the line that 
Says you can’t beat Optimum-C to a real 
test. Your answer, please? 


PRICES 
Developer’s Kit w/ C Tutorial $ 99 
Optimum-C w/ C Tutorial $139 


(both with library source) 


Add $7 for shipping in US/$20 outside US 
COD (add $2.50) 


Not Copy Protected 


ORDER TOLL-FREE TODAY! 
1-800-221-6630 


ATTENTION OEMs! 


Contact us regarding arrangements. 


*Limited offer available exclusively to readers who 
purchase directly from Datalight. 


Microsoft and MS-DOS are registered trademarks 
of the Microsoft Corporation. Turbo C is a regis- 
tered trademark of Borland International. 
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Magazine Reviewers Shocked by 
DATALIGHT’s Performance... 


‘Reviewing this compiler was quite a surprise 
for us. For such a low price, we were expecting 
a “‘lightweight”’ compiler. What we got was 
a package that is as good as or better than 
most of the “‘heavyweights.’”’ Datalight C 
implements a complete C language. It also 
compiles quickly, doesn’t take up much disk 
space, and looks impressive in the 
benchmarks.” 


DR. DOBBS, August 1986 


“This is a sharp compiler!... what is impres- 
sive is that Datalight not only stole the com- 
pile time show completely, but had the fastest 
Fibonacci executable time and had excellent 
object file sizes to boot!” 


COMPUTER LANGUAGE, February 1986 





Optimum-C Version 3.0 


NEW! 
EZ Interactive Development Environment 


NEW! 
Inline 8087/80287 Math Support 


¢ Full UNIX System 5 C language plus 
ANSI extensions 

¢ Fast/tight code via powerful optimizations 

including common sub-expression 

elimination 

DLC one-step compile/link program 

Multiple memory model support 

UNIX compatible library with PC functions 

Compatible with DOS linker and assembler 

Third-party library support 

Automatic generation of .COM files 

Supports DOS pathnames, wild cards, 

and Input/Output redirection 

Compatible with Lattice C version 3.x 

Interrupt handling in C 

Debugger support 

ROMable code support/start-up source 


MS-DOS® Support Features 


Mouse support 
Sound support 
Fast screen I/O 
Interrupt handler 


MAKE Maintenance Utility 
Macro definition support 
MS-DOS internal commands 
Inference rule support 
TOUCH date manager 

Tools in Source Code 


cat—UNIX style “‘type”’ 
diff—Text file differences 
fgrep—fast text search 
pr—Page printer 

pwd—Print working directory 
wc—Word count 


Datalight 


17505-68th Avenue NE, Suite 304 
Bothell, Washington 98011 USA 
(206) 367-1803 
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Artificial Neural Network 
Pioneers 

Dear DDJ, 

I read with considerable interest “An 
Artificial Neural Network Experi- 
ment” by Robert Brown (April 1987). 
This article is a classic example that 
nothing is really new; except for the 
modern implementation using state- 
of-the-art hardware, virtually every- 
thing described in this article was 
first published in the early 1960s. 

In 1961 and 1962, Dr. Bernard Wi- 
drow of Stanford University first 
published the basic theory described 
in this article; he reduced it to prac- 
tice in a device known in those days 
as Adaline and even formed 
a corporation to manufac- 
ture the adaptive elements 
used in the Adaline device. 
Adaline was implemented 
using essentially the circuit 
described in Figure 4 of the 
article and used electro- 
chemical cells whose resis- 
tance could be modified by 
plating or stripping material 
from the cell plates. Thus, 
an adaptive network exactly 
as described in the article 
was achieved. The mathe- 
matics involved was identi- 
cal to that detailed in the 
article. 

Adaline was reduced to 
practice in a 4X4 array of 
cells and was demonstrated 
to show pattern recognition 
characteristics identical to 
those described in Table 1 of 
the article; an expanded 
Adaline (Madaline) was 
demonstrated to learn how 
to balance a broom on a 
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model railroad car after being taught 
for a few minutes by an operator. 
The algorithm was implemented on 
a computer and demonstrated to 
have speech recognition characteris- 
tics that were remarkable for the 
state of the art existing at that time 
(1962). 

Widrow is well published in this 
area—for example, see ‘‘Rate of 
Adaption in Control Systems,” Amer- 
ican Rocket Society Journal (Septem- 
ber 1962): 1,378-1,385. 

Subsequent to Dr. Widrow’s work, 
a major extension of this work was 
published by Dr. John Voevodsky, 
which deals extensively with the 
neurological structure and its rela- 
tionship to the work by Dr. Widrow. 

I was a student of Dr. Widrow at 
the time the Adaline work was in 
process and have wondered over the 
years why nothing became of it. 
Much of the inhibition was caused 
by the cold water poured on this top- 
ic by Marvin Minsky in his book Per- 
ceptions in 1969; the lack of suitable 
technology to scale the concept up to 
useful levels was also a practical 
inhibitor. 

Dr. Voevodsky has continued to 
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champion the concept over the years 
and has recently formed a corpora- 
tion to advance this technology (see 
Electronic Engineering Times, [March 
2, 1987]: 24). 

I applaud Robert Brown for pre- 
senting this information clearly in a 
modern context, but it is important 
and instructive to understand the 
true origins of this work and to give 
appropriate credit to Bernard Wi- 
drow and John Voevodsky for their 
truly pioneering work in this field. 

David Lytle 

90 Sidney Ct. 

San Rafael, CA 94903 


Educating Programmers 
Dear DDJ, 

I would like to make a few com- 
ments on Allen Holub’s Viewpoint in 
April 1987. 

He has a good point; however, how 
about going one step farther and tak- 
ing issue with the very way math is 
taught in undergraduate classes? It's 
true that right now calculus means 
successive application of memorized 
rules until you find the right one. But 
that need not be. In fact, I suggest 
that it gives rise to poor math—not 
only poor programming. 
Undergraduate math (and 
science) education in the U.S. 
lags far behind the level of 
most other industrial coun- 
tries, and that kind of sylla- 
bus—implying that you 
don’t really have to apply 
logical thinking, under- 
standing of the problem at 
hand, and so on—helps a lot 
toward this negative goal. 

I agree completely that a 
good liberal arts curriculum 
is best for programmers—in 
fact it’s best for scientists, 
too. Incidentally, less memo- 
rizing and more under- 
standing of what’s going on 
could make calculus (or any 
math, for that matter) an in- 
tegral part of such a curricu- 
lum and lead to better pro- 
grammers, better scientists, 
and, maybe, just plain better 
human beings (not to speak 
of English majors). By the 


way, that’s what people try, 
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A Multiwindow Screen Editor 


for Programmers 


XTC is more than just a powerful programmer’s editor. Its implementation 
actually encourages users to develop software systems in a more efficient way. 


XTC was originally written for a 
Compupro 8086 machine running 
CP/M-86, for use in robotic software 
development. It was called GLACIER, 
an acronym for “Good Lord, A Cen- 
tralized Interactive Editing Routine”. 
GLACIER had multiple windows and 
the ability to share text between 
windows, and a set of editing com- 
mands which were based on the most 
popular word processor at that time 
—Wordstar. Windows were important 
because it was necessary to view 
several different text files or several 
different parts of the same text file 
without constantly switching back and 
forth between them. Originally written 
in Pascal MT+86, GLACIER was re- 
written for the IBM PC family in IBM 
Pascal. Blocks, text buffers, and a macro 
programming language were added to 
the new editor, and it was released as 
XTC version 1.2. 

Now, nearly three years later, XTC 
3.0 is a complete text editing environ- 
ment with over 100 commands in 
seven categories: File Interface, Win- 
dows, Blocks, Text Processing, Editor 
Programming, Multitasking, and Special 
Editing. It comes with its source code 
on disk, and a full-size, laser-typeset, 
180+ page manual. Unlike other pro- 
grammer’s editors, XTC is user-modifi- 
able at the source code level, so you can 
add to XTC’s basic command set, or 
change how the commands work 
entirely. 


How XTC works 


The editor’s design was based on its 
ability to share text across windows 
and buffers (which are just windows 
that don’t get displayed). Pascal’s 
strong typing lead to the storage of text 
in a doubly-linked list of line buffers 
(hereafter called a “text stream’’), so 
that cursor movement commands 
could move a “current pointer” around 
the text with simple pointer assign- 
ment operations. This also makes in- 
sertion of text very efficient, since it 
can be accomplished with one short 
memory move to make room for a new 
character. 


XTC keeps track of a doubly-linked 
list of data structures called window 
descriptors which describe the win- 
dows displayed on the screen. There is 
also another doubly-linked list of 
window structures which are not dis- 
played by the display algorithm for 
XTC’s buffers. Each window descriptor 
contains information about the physical 
coordinates of the window on the 
screen, how big the window is, a 
pointer to a text stream where the 
window is positioned over, and a 
pointer to the current cursor position 
within the window. Other information, 
such as the current filename and 
options like wordwrap and autoindent 
are also saved in the window descriptor. 
Figure 1 shows how XTC’s principal 
data structures are connected. 





Figure 1. XTC’s text and window manage- 
ment data structures. Here two windows 
share a text stream, and a third is positioned 
over a different stream. 


How to use XTC 


Knowing about how a program works 
makes it possible for you to use it in the 
best way possible. Obviously, XTC’s 
data structures make for very fast zoom- 
ing through a text stream, and insertion. 
It also makes it easy to make new 
windows quickly and either share text 
among them or look at other files while 
you concentrate on the main task of 
creative development. 
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There is no free lunch, 
unless you learn the system. 


It takes XTC longer to read a file into 
data structures, and allocate memory 
for data structures on the fly for each 
line descriptor than it does for an 
unstructured editor to read text into 
big block buffers. Therefore, programs 
developed under XTC tend to be com- 
posed of a main file and many include 
files. XTC’s main draw then, is its 
windowing system which makes you 
actually want to put a separate C 
function in a different include file. By 
storing each function in a separate file, 
XTC lets the operating system manage 
your library of source, and it becomes 
easy to share source routines among 
several software products. 

This system works very well. We’ve 
used it in the design of our latest 
operating system, Wendin-DOS. The 
new operating system is composed of 
over 32 modules written in C and 
assembly language, and each module 
source file (named modulename.C) 
uses include statements to draw in 
header files that describe data struc- 
tures, and function files (named 
functionname.] ). Altogether, XTC and 
the operating system manage over 
50,000 lines of source code in 500 
different source files. The simple con- 
vention of using a function’s name for 
its source file makes it easy to retrieve 
the exact piece of code you're inter- 
ested in, without wading through tons 
of code in a single big source file. 

Next month, we'll present XTC’s pro- 
gramming commands and macro lan- 
guages. If you don’t already have XTC, 
get your copy and follow along. You 
simply won’t get the chance to do that 
with any other editor. 


Peirce a ee 
XTC: $99 

Wendin, Inc. 

PO. Box 3888 
Spokane, WA 99220 
(509) 624-8088 
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with varying success, to do when 
teaching math in Europe. 

Federico Marchetti 

2505 Jemsen Ave., #438 

Ames, IA 50010 


Dear DDJ, 

This is a response to the Viewpoint 
“Education and Programming” by 
Allen Holub in your April 1987 issue. 

This essay touched on a potent 
mystery: exactly what is the knowl- 
edge or state of mind required for 
good programming? That is, what is 
programming? Hackers, have you 
ever been stymied by a persistent 
novice who keeps asking you “Yes, 
but what is it that you do?” Mr. Holub 
may approve of what I consider the 
best answer so far: “I write novels 
that computers read”’ (Patrick Ho- 
gan, 1987).1, too, believe that pro- 
gramming is, above all, a literary 
skill, an art of written communica- 
tion. Look at the coincidences in the 
qualities of good writing and good 
programming: concise (efficient), 
consequential (functional), powerful- 
ly expressive (good use of hardware), 
evocative of hidden truths, structur- 
ally harmonious at scales both large 
and small. 

That’s why I think the notion that 
mathematics is inessential to pro- 
gramming is wrong. On the con- 
trary, mathematics can teach things 
needed by writers of software, news- 
papers, and poetry alike. The first of 
these is logic, the foundation of math- 
ematics. Impatient novelists and 
frobbozzers would not shudder if 
they could learn how quirky and “il- 
logical’’ mathematical logic really 
can be. But it don’t mean a thing if 
that proof don’t sing! From logic you 
learn that the truth, to be valuable, 
must be communicated, that it must 
be notated, that it pays to use power- 
ful theorems, and that the shortest 
road home is the best. And, as an in- 
spiration, there is the mystical prom- 
ise of Gddel’s theorem—that there is 
something so true that it cannot be 
captured in proof. 

For programmers, logic offers 
such especially apt vocational train- 
ing that it deserves extra study and 
practice, long after the premeds and 
lit jocks have moved on to Latin. 
Here, programmers can acquire a 
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handy facility with abstract symbols 
and an assertion-and-proof style of 
thought that, as Dijkstra and Mills 
have demonstrated, is practical and 
effective. Mathematics courses are 
good practice in logic and following 
“the drill.’’ Computers and math 
quizzes are equally stern in their 
judgment, so take plenty of math and 
get used to it. Plus, along the way, 
you'll pick up plenty of useful tools 
and tricks. I pity graphics program- 
mers who have not studied linear al- 
gebra and real analysis, for they are 
doomed to write inferior code. 

If, as Mr. Holub suggests, you limit 
your study of mathematics to one se- 
mester of basics, you will not only 
have failed to acquire a good liberal 
arts education but you will also have 
fallen behind in the art of 
programming. 

Kerry Kimbrough 

1710 Aggie Ln. 

Austin, TX 78757 


Dear DDJ, 

Allen Holub fails to see the very deep 
connection between mathematics 
and programming. The facts of the 
matter are that mathematics and 
programming are inextricably relat- 
ed. Both share a common ground, 
namely that of solving problems. But 
before a solution to a given problem 
is achieved, the nature of the prob- 
lem must be understood—that is, the 
specifications of the problem are giv- 
en. It is here that mathematics and 
programming have the greatest simi- 
larity. Both methods produce their 
solutions from what is known about 
the problem in advance, and the 
more that is known, the easier the so- 
lution. Generation of the solution is 
performed in a logical and orderly 
fashion. Solution of math problems is 
not haphazard, despite Mr. Holub’s 
statement to the contrary. In fact, 
many of the items in his assessment 
of essay-writing fundamentals are 
also found in mathematics. The 
mathematical analogue of the out- 
line are the axioms, or those things 
given as true, of the problem. Also, 
solutions to mathematics problems 
are generated a step at a time, similar 
to the sections of an essay. In either 
case, methodical and ordered pro- 
cesses are performed in order to 


achieve the desired result. 

Mr. Holub’s suggestion to use Latin 
as the paradigm of complex systems, 
though laudable, is flawed. Latin, al- 
though rich in its complexity, is a 
dead language: its patterns are fixed 
and unchanging. Computer pro- 
grams, on the contrary, are dynamic, 
evolving entities. Latin is, therefore, 
inadequate as a model from which to 
study the structure of programs. Hu- 
man language is also fraught with in- 
consistencies—for example, excep- 
tions to rules—and sometimes 
suffers from ambiguities and impre- 
cision. Programming requires quite 
the opposite, as even novice pro- 
grammers could testify. Mathematics 
is also intolerant of ambiguity and 
imprecision. Through the use of 
well-defined, consistent principles, 
solutions to mathematics problems 
are guaranteed to be true to a high 
degree of reliability. No human lan- 
guage can assert the same. 

Mathematics takes several years to 
grasp fully. A one-year calculus class 
is sufficient to provide only a coarse 
introduction to mathematics. Rather 
than see mathematics requirements 
be watered down, curricula should 
be expanded to include upper-divi- 
sion mathematics requirements. 

One final thought in this area: 
training in language and literature, 
although providing a broad knowl- 
edge base, does little to provide stu- 
dents with the necessary problem 
solving skills and methodology appli- 
cable to computer programming. 
What problems are there to be solved 
in Russian literature? 

We do not need groups of people 
capable of writing text editors, data- 
base managers, and so on. Surely 
there are enough of these programs 
already. ‘Scientific’ programming 
should be strongly emphasized in 
any programming curriculum. Mr. 
Holub is correct in his assessment 
that certain aspects of undergradu- 
ate education require reform, but he 
has failed to’ see the deeper underly- 
ing problem: the need to make math- 
ematics, science, and computers, be- 
cause of their increasing importance, 
more available to undergraduates, 
even those who, in Mr. Holub’s 
words “. .. don’t have an aptitude for 

(continued on page 126) 
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subroutines from 
BASIC, Pascal and Cc The third 
level lets you enter SOL statements 
interactively without ever having 
to write a program. 


XQL’s extensive DBMS fea- 
tures let you access data by name. 
Field order is independent of physi- 
cal location within the Btrieve 
record. Only records that pass your 
restrictions are returned— in the sort 
order you specify. Fields can be com- 
puted from other fields or constants. 
And you can manipulate composite 
records built from multiple, joined 
Btrieve files. 











XQL offers all 
the performance and 
reliability you’ve come to 
expect from Btrieve, includ- 
ing LAN support, fault 
tolerance, comprehensive 
documentation and expert 
technical support for trouble- 
free software development. 
Plus, you never pay royalties on 
your XQL applications. 


Put the latest innovation in SQL 


technology to work for you. 
Contact SoftCraft. 





SoftCraft 


ANOVELL COMPANY 
P.O. Box 9802, #917 
Austin, Texas 78766 

(512) 346-8380 Telex 358 200 


-XQL, $595, Btrieve, $245; ‘multiuser Brrieve, $595. XOL requires Btrieve and 


a2. - or 3. x XQLi is a trademark and Btrieve is a registered trademark of SoftCraft, Inc. 
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Texas Instruments has 
system developers need. 
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“Personal Consultant™ Plus eee offers Personal Consultant Plus 3.0 Standard Features 


— Frames, rules, meta rules and procedures 
— Forward/backward chaining 


a very fine expert system development 2 


— End-user explanation facilities 


d delivery tool that already h IPR os 
and delivery tool that already has ‘See oe 


— Complete LISP development environment 


‘ 99 — c-megabyie expanded/extended memory suppo 
a proven record with end-users. oe 
— Context sensitive help 
— Susan Shepard, Al Expert 


— “Getting Started” tutorial-style manual 


Personal Consultant Images 
— Optional add-on package to PC Plus (3.0) 
— Allows integration of “active images’ into 





what serious expert 


Power tools. 













knowledge bases 

— Interactive dials, gauges, forms and selection 
images 

— Multiple images can be combined on same 
screen 

— “Getting Started” tutorial-style manual 


Personal Consultant Online 

~ arene add-on package for PC Plus pabd 

— ONLINE expert systems that interact directly with 

rocess data 

— Multiple interfaces to data acquisition and 
analysis programs 

— Knowledge base synchronization with process 
data 

— Functions for historical and predicted trends 

— Special user interface/reporting capabilities 

— “Getting Started” tutorial-style manual 













on all the expert system devel- 
opment tools available for personal 
computers today, none deliver the 
power and flexibility of TI’s Personal 
Consultant series. 

Personal Consultant Easy is ideal for 
getting started, and is upwardly com- 
patible with the higher functionality of 
PC Plus. For experienced developers, 
Personal Consultant Plus and its 
optional add-on enhancements, Online 
and Images, were designed to help solve 
a broader range of complex problems. 


package helps deliver expertise that is 
“online all the time.” 


Application delivery as flexible as the 
tools themselves. 

Delivery can be in LISP for flexibility, 
or “C”* for maximum speed and porta- 
bility. Our “C” options support either 
stand-alone or “embedded” knowledge 
bases. Options are available for DOS- 
based PCs, TI’s Explorer, and DEC’s 
VAX™ line of multi-user minis running 


under VMS™. 





Personal Consultant Plus. Full power 
for an affordable price. 

At $2,950, PC Plus has proven to be 
one of the richest and most flexible 
problem-solving tools available for the 
development of complex knowledge- 
based systems. Designed to take 
advantage of today’s more powerful 
286/386 DOS-based computers, or TI’s 
Explorer™ Symbolic Processing System, 
the new 3.0 version of PC Plus provides 
powerful standard features and a contin- 
uing growth path with the addition of 
either PC Images or PC Online, or both. 


Personal Consultant Images. Picture 
an expert system with interactive 
graphics. 

At $495, PC Images enables developers 
to create knowledge-based applications 
that incorporate complex graphical 
“active images.” User-interactive dials, 
gauges, forms and selection images pro- 
vide a more exciting visual data input 
and output style. 


Personal Consultant Online. The 
expert system as part of the process. 
At $995, PC Online allows the devel- 
oper to design expert systems which 
interact directly with process data, as 
opposed to input from a human oper- 
ator. Designed for intelligent process 
monitoring applications, this optional 


“Texas Instruments has done more 
than any other company to educate 
people about AI, to popularize it, and 
to make useful AI tools available at 
reasonable prices.” 

— Jim Seymour, PC Magazine. 


Technical support, training courses and 
Knowledge Engineering Services are 
available for the Personal Consultant 
products. If you have a question about 
any of our expert system power tools, we 
have the answer. 


Pick up the phone and gain a powerful 
advantage. 


Call 1-800-527-3500 for technical 


overviews of our products and a PC Plus 
case histories brochure which details 
how our power tools are being put to 
work today. 


36106 

© 1987 TI 

Personal Consultant and Explorer are trademarks of 

Texas Instruments Incorporated. 

dBase is a trademark of Ashton-Tate. 

Lotus 1-2-3 is a trademark of Lotus Development Corp. 

VAX and VMS are trademarks of Digital Equipment Corporation. 
* Available 4Q 1987. 
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eveloping 
80386 Applications 


... Today 


by Richard Relph 


he arrival of the Intel 

80386 promises a new 

level of sophistication 
in applications. With its speed 
and multigigabyte virtual, 
physical, and segment ad- 
dress spaces, developers can 
create applications requiring 
the resources of a mainframe lt 
but usable on personal computers. In addition to being 
able to run these new, sophisticated applications, the 386 
can play host to several ‘‘old’’ 8086 programs, each believ- 
ing it has the whole CPU to itself. It is this promise of being 
able to run newer, more powerful applications without 
losing the use of existing programs that makes the 386 so 
exciting. 

But many software developers may feel the availability 
of a new CPU such as the 386 is difficult to take advantage 
of. There isn’t an operating system supporting the 386 
that people are willing to buy. And even when Micro- 
soft’s 386 DOS becomes real, the Lotuses of the software 
world will get first crack at it, taking away the small de- 
veloper’s edge of being able to react more quickly. It 
seems as if there’s no way for a small company or individ- 
ual to develop the first spreadsheet, for example, to take 
advantage of the 386’s capabilities. 

Well, that isn’t actually the case anymore. Just about 
any programmer can develop code today that takes ad- 
vantage of the full resources of the 386, using what I call 
an ‘environment.’ An environment is a layer of software 
that looks like a 386 DOS to your 386 application but that 
acts like a standard 8086 application to the host operating 
system, MS-DOS. This article describes two such environ- 
ments that were available in March; at least two more 


Richard Relph, 846 Salt Lake Dr., San Jose, CA 95133. Rich- 
ard is a software and hardware consultant. He has written 
compilers and embedded systems. 
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should be available by the 
time you read this. 

The environments de- 
scribed here limit your 386 ap- 
plication to physical memory 
and must be written in either 
Pascal or C (unless you feel up 
to developing multimegabyte 
programs in assembly lan- 
guage). Over the next few months, theserestrictions may 
be eased. Environments supporting virtual memory and 
other languages will certainly be ported to the 386. Two 
environments supporting multitasking were planned for 
release in April. 

Before you can use an environment, you need a compil- 
er that supports the environment (and its host processor, 
the 386). First, you select your compiler; then an environ- 
ment; and finally, the hardware to run it on. All three 
ingredients are available today. 

The only vendor supplying 386 compilers for any envi- 
ronment I know about is MetaWare, which is now ship- 
ping both Professional Pascal and High-C. Phar Lap was 
the first company to ship an environment—DoOs-Extend- 
er. Softguard followed soon after with VM/RUN, the pieces 
of VM/386 needed to run 386 programs. The Software 
Link provides PC/MOS 386, a multiuser, multitasking OS 
for the 386. The version of PC/MOS I tested supported only 
8086 tasks, although the company provided documenta- 
tion and release dates for the 386-tasking version. The 
hardware I used was the Compag Deskpro 386. 


The Compiler 

Compiling your source code is the starting point for creat- 
ing 386 programs. I used MetaWare’s High-C 386 to per- 
form this task. High-C 386 itself runs on any MS-DOS com- 
puter with a hard disk. In fact, no 386 is required 
anywhere in the development process until you actually 
need to execute (and debug) your code. Of course, like any 
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conform to the ANSI specification, 
and it does. Additional, nonstan- 
dard (but common) functions are 
also supported via _ utility 
‘‘packages.’’ These pack- 
ages are in the form of 

header files much like 

the normal ones, only 
with the extension .CF. 

Packages are provided for 

stack dumping, for interrupt 
trapping (yes, trapping), for using 
the MS-DOS int 21 functions, and for 
calling other system-dependent ser- 
vices. As an additional feature of the li- 
brary, all portable, but system-dependent, 
functions rely on a core of functions that 
programmers can replace in order to sup- 
port embedded or hostless applications. 
The documentation provided with 
High-C is, to say the least, complete. 
Some 700 or more pages in length, 
there is probably no question about 
the product not answered within 
its volume. The documentation is 
divided into five sections, each a 
manual itself, each with a table 
of contents and an index. The 
manuals are License, Installa- 
tion, Program, Library, and Lan- 
guage. Each is typeset, with the ex- 
ception of the Language manual, 
which is printed on a dot-matrix 
printer (presumably awaiting final 
ANSI approval of the C standard). It will 
take new users some time to get familiar 
with the structure of the manuals and to feel at 
ease with them. This is especially true of the Lan- 
guage manual, which is precise but not particular- 
ly easy to read or understand. 
When it comes to support for High-C, it is hard 
to imagine any better. Questions about the prod- 
uct are routed directly to the person who wrote 
the compiler, which ensures that you are talking to 
someone who has some familiarity with the prod- 
uct. MetaWare is always improving its compilers, 
both by fixing any discovered bugs and by adding 
new features. I have always found the company co- 
operative when it comes to providing updates, al- 
though its official policy is three months of free up- 
dates with additional support at 15 percent ($135) per 
year. 

High-C is more expensive than MetaWare’s other 
DOS compilers but not unreasonably so. The version I 
tested was 1.3, although this is not enough to exactly 

specify a particular set of compiler characteristics be- 
cause MetaWare often tinkers with the compiler 
without changing the version number. 

Installation of the compiler is easy if you proceed 
as MetaWare suggests. The first step is to run a batch 
script called, oddly enough, install. This script places 

several files and directories in the current directo- 


MS-DOS program, High-C runs signifi- 
cantly faster on a well-designed, 
386-based computer. 

MetaWare High-C is a 
complete (and then some) 
implementation of the 
C language, regard- 
less of which standard 
you choose to hold it up 
to. The ANSI C language 
specification, though not yet a 
standard, is supported in one of 
two similar languages accepted by 
High-C. The other language is perhaps 
best referred to as extended ANSI C. This 
is the default language. The strict ANSI lan- 
guage is supported in the form of different 
parse and scan table files supplied, which can be 
fed to the compiler in lieu of the ones built into it. 

Some of the MetaWare extensions to ANSI C include 
case ranges, nested procedures (like those of Pascal), 
named parameter association (borrowed 
from Ada), access to unnamed members 
of unions (taken from C++), and inter- 
leaved declarations and statements. 

Two unusual features allowed by ANSI 
and used by MetaWare are pragmas and 
intrinsic functions. Pragmas allow pro- 
grammers to tell a compiler something 
about their code. MetaWare uses them to 
change calling conventions, specify seg- 
ments for objects, enable various optimiza- 
tions, and other unusual but sometimes 
needed features. Intrinsic functions are 
function calls that the compiler recognizes 
and generates code for in-line (without a 
procedure call), using any special instructions 
the processor may support (such as rep, scans, 
movs, etc.). MetaWare provides intrinsics for 
absolute value; minimum and maximum of 
lists; common string and memory functions; 
and, if the 387 option is used, some transcen- 
dental! functions. I didn’t test support for Intel’s 
80387 numeric coprocessor (a faster, extended 
80287) because the Compaq Deskpro 386 can’t use 
one, but 287 support is provided and I tested it. 

To do language testing, MetaWare provided 
me with its test suite, which it also sells as 
a separate product. The test suite includes many 
strange but valid and mostly compiler-indepen- 
dent constructs in the C language. It consists of 
roughly 2,000 lines of code and includes both a lan- 
guage test and a library test. I expected MetaWare’s 
compiler to pass the suite (because the company 
provided it) and it did. I was convinced by looking at 
the test suite that a compiler would have to be pretty 
sound to run it, but just to provide a basis of compari- 
son, I stripped the suite of High-C-specific code and 
ran it through some other well-known compilers. 
The other compilers all failed, in various and surpris- 
ing ways, but that is not the subject of this article. 

The library provided with High-C is intended to 
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ry. It is unfortunate that most of these files are packed ina 
single archive file spread across the four diskettes. This 
makes customized installations a two-step process: first 
installing per MetaWare guidelines, then rearranging for 
individual tastes. To MetaWare’s credit, the entire instal- 
lation section of the manual is duplicated on the first dis- 
kette for easy reference. 

Besides the compiler, include files, and necessary li- 
braries, the package contains several utilities, such as 
some standard Unix-style file manipulators. More unusu- 
al is a set of utilities that allows editing and detailed ex- 
amination of .OBJ files and utilities for producing cross- 
references of multiple source files. 


Performance 

The compiler isn’t going to win any contests for speed of 
compilation, but users should find performance adequate 
for most programs. Most of the slowness comes from the 
size of the compiler and the time it takes to load from disk, 
so performance will appear particularly bad with small 
source files. The compiler does generate a lot of informa- 
tion about your program and issues many useful warn- 
ings when it finds questionable code, such as using a vari- 
able before assigning anything to it or failing to specify a 
return value from a nonvoid function. Listings, with or 
without generated assembly-language code, can be pro- 
duced via a command-line switch. 

The generated code is good considering that no global 
optimizations are made. Of course, the 386’s more regular 
architecture doesn’t hurt either, although there are nu- 
ances there as well. For instance, the fastest way to multi- 
ply something by 5 is to use the LEA instruction, of all 
things! High-C supports three register variables, and they 
are used by default, unlike High-C for the 8086 and 80286, 
which only supports two and then only if you enable 
them. The size of integers is 32 bits in High-C. I didn't 
spend a lot of time benchmarking the compiler because it 
is the only game in town right now. But I did compare 
programs compiled under 386 mode with programs com- 
piled under 286 mode and found general improvements 
of 5 to 10 percent in the 386 version. In programs in which 
long arithmetic was used often, more dramatic increases 
were apparent. 


The Linker 
After compiling your program, you'll need to link it. I 
used Phar Lap’s assembler and linker, although you can 
get the same assembler and linker from Softguard (which 
licenses them from Phar Lap). I did not play with the 
assembler much beyond running the installation test, but 
based on comments in the update notice, it seems fairly 
sound. The linker, on the other hand, I used a great deal. 
386LINK, as it is called, is fairly slow, mostly because of 
the way in which libraries are managed. Unlike Micro- 
soft’s DOS linker, which uses an (undocumented) index 
table, Phar Lap’s simply searches the library by scanning 
it. Doing all the arithmetic in 32 bits using 8086 instruc- 
tions doesn’t help performance either. The input form is 
something Phar Lap calls Easy OMF-386, a simple exten- 
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sion to OMEF-86, the .OBJ form both Intel and Microsoft use 
for 8086 objects. Easy OMF-386 extensions are documented 
in an appendix of the linker’s manual. The linker can 
produce several output forms. .EXE files are the default, 
although the format is not exactly compatible with DOS 
.EXE files because it doesn’t use 8086-style segments. Intel 
hex and Motorola S-records can also be generated. A spe- 
cial output form is .REX, which is what the Softguard envi- 
ronment uses. 


The Environments 

If you buy the assembler and linker from Phar Lap, you 
also get MINIBUG and RUN386. The total package lets you 
develop programs to run on the 386. If you want to sell 
those programs, you must purchase a redistribution li- 
cense. You can then bind RUN386 to your program and 
sell it. In this bound form, 386 programs are invoked just 
as normal DOS applications. 

MINIBUG is a debugger for 386 programs, similar to MS- 
DOS DEBUG. Missing are the Assemble command, the Load 
command, and the Name command. The Dump and En- 
ter commands are enhanced to support SYMDEB-style size 
specifiers for ASCII, word, and double-word quantities. 
The RX command displays all 80386 registers, while the R 
command displays just the registers used by normal pro- 
grams. You can modify any 80386 register, including all 
the protected registers (which include the debug 
registers). 

RUN386 is Phar Lap’s 386 execution vehicle. It is a single, 
standard MS-DOS program that accepts the name of a 386 
EXE file, loads it, and runs it, passing any additional com- 
mand-line parameters on to the 80386 application. 
RUN386’s job has really only begun when your 386 pro- 
gram gets control, however. Presumably, your program 
will want to do I/O and probably through the MS-DOs that 
was running just before. The problem is that MS-DOS is an 
8086 program and yours is not. Furthermore, you can 
address gobs of memory, but MS-DOS and its underlying 
hardware can only get at the first megabyte of physical 
memory. RUN386 handles the details of getting your data 
through to DOS and letting DOS get to its hardware. It does 
this by intercepting your int 21s, examining the registers, 
translating them and moving data if necessary, and final- 
ly passing control to MS-DOS in real mode. When MS-DOS 
finishes, RUN386 regains control and again translates reg- 
isters accordingly. RUN386 also fields hardware inter- 
rupts and forwards them to their real mode handlers. 

Softguard’s VM/RUN does pretty much the same thing as 
RUN386 does. VMRUN is a .COM file that loads many other 
Softguard-supplied files (all of which must be in the cur- 
rent directory) and then the application's .REX file. Each 
application must have a profile, a description of how the 
programmer would like certain features of the environ- 
ment configured. Mainly, these parameters specify how 
much memory to allocate for specific uses. Memory can 
be allocated for program-managed, low physical address 
buffers (thus avoiding the expensive block move), for DOS 
exec calls, and for the stack. All other memory is given 
over to the 80386 application code and its data. 

Another bit of information in the profile is whether to 
start up in debug mode or not and whether to debug 
using the display or a separate terminal connected to a 
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It will take PC-MOS/386"™ 

The First 80386 Operating 
System. Specifically designed for the 
80386 computer, PC-MOS/386™ opens 
doors. Doors to more memory and 
multi-tasking. Doors to thousands 
of DOS programs as well as upcom- 
ing 80386-specific software. It’s the 
gateway to the latest technology..., and 
your networking future. 

Memory Management 
Without Boards. PC-MOS exploits 
the memory management capabilities 
built into the 80386. So, up to four 
GIGABYTES of memory are access- 
ible to multiple users and to future 
80386-specific applications requiring 
megabytes of memory. 

Multi-Tasking, Multi- 

User Support for One, Five or 
29 Users. PC-MOS/386™ allows 
up to 25 inexpensive terminals to be 
driven by a single 80386 machine. 
So the features of the 80386 can be 
utilized at every terminal. And it 
comes in three versions so you can 
upgrade your system as your com- 
pany grows...without having to 
learn new commands or install 

new hardware. 


Imagine the speed and power of a 
$100,000 minicomputer in a desktop PC cost- 
ing under $7,000. Now imagine all that power 
going to waste because the operating system 
you chose was never meant to take advan- 
tage of a computer this powerful. It will 
take more than just a “window environ- 
ment” or an outdated operating system 









































Software Support for Thousands 
of DOS Programs. Although PC-MOS/386™ 
totally replaces DOS, it doesn’t make you 
replace your favorite DOS programs. So you 
can run programs like Lotus 1-2-3, WordStar. 
dBASE III, and WordPerfect on the 80386. 
Best of all, it uses familiar commands like 
DIR and COPY-so you'll feel comfortable 
with our system. 
The Gateway to Endless 
Features. Distinctive characteristics 
like file/system security, remote access, 
file/record locking, and built-in color 
graphics support for EACH user set 
PC-MOS/386™ apart from all previous - 
operating systems. 
, Open the Doors to Your 
Future TODAY! Call The Software 
Link TODAY for more information and 
the authorized dealer nearest you. 
PC-MOS/386"™ comes in single, five & 
20-user versions starting at $195. 
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80386 APPLICATIONS TODAY 
(continued from page 18) 


COM: port. 

Softguard’s debugger is different from Phar Lap’s and is 
in many ways better. It uses the 80386’s debug registers to 
set execution and data breakpoints. It is screen-oriented 
when running locally and can use a remote terminal as 
the debug console (in which case it does start to resemble 
DEBUG). When running locally, screen swapping is used to 
avoid the normal problems associated with one screen 
being used for two purposes. The debugger is more or less 
always present. If a trap occurs during execution of your 
program, the debugger is invoked. 

One major difference between the environments these 
two packages present is the memory model. Phar Lap’s 
continues to use segments, whereas Softguard’s is based 
on a flat-memory model. Although it is accurate to say 
that Phar Lap supports the large model compared to Soft- 
guard’s small model, it is perhaps a bit misleading. The 
small model, after all, supports up to 4 gigabytes per ob- 
ject or program. One place this dichotomy of models is 
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apparent is in direct screen I/O (I do not recommend do- 
ing direct screen I/O, but both environments support it 
and it does provide a useful example of the difference 
between flat and segmented models). For Softguard’s, you 
merely compute what the address would have been on 
the IBM PC (which depends on what display adapter is in 
use), put that in an index register, and access screen mem- 
ory through it. So Softguard would have the screen ad- 
dressed with EDX (for example) equal to 000b8000. Phar 
Lap, on the other hand, provides a segment descriptor 
that points at the base of the display adapter, so merely 
computing the offset and accessing through the segment 
with the offset does the equivalent thing. Segment 1c 
points at the screen memory, so to access the first location 
in it, you load a segment selector (register) with 1c and use 
an offset of 0. Phar Lap’s 1c:0 is equivalent to Softguard’s 
000b8000, assuming a color graphics adapter. If you use a 
monochrome adapter, Phar Lap’s environment still ac- 
cesses it using 1c:0, but Softguard’s uses 000b0000. It 
should be noted that Phar Lap does provide a segment 
selector (34) that works the way Softguard’s DS does for 
the low 1 megabyte. 

Softguard’s VM/RUN is compatible with its future VM/ 
386, a multitasking 386 control program. VM/386 is not an 


| operating system but rather a layer between other oper- 


ating systems and the hardware (VM/370 programmers 
should recognize this picture immediately). Under (or 


_| over, depending on how you view things) VM/386, sever- 

| al different 8086 operating systems may be running, each 

| believing it owns the machine. One virtual machine can 

| even be rebooted without affecting any other virtual 
__| machine. 


The Software Link has taken a different tack. Its PC/ 


MOS 386 is a single 80386 operating system that can run 
_ | several DOS programs at one time. PC/MOS will also be able 
___| to support 80386 native mode programs, but this feature 


was not available at the time I wrote this review (it was 


due to be released in April). Documentation provided by 

| The Software Link indicates that PC/MOS will support 
___| large-model 386 programs, like RUN386 does, although it 
___| doesn’t appear that they'll be compatible. 


- Performance 


When comparing RUN386 and VM/RUN in use, RUN386 


_ | seems to be easier to use. Only one new file is introduced 
| (RUN386.EXE) and it can be anywhere along the path, al- 


though the 386 .EXE file must be in the current directory. 


| VM/RUN requires at least five other files, four of which 
| mustbein the current directory, along with the 386 appli- 
| cation’s .REX file. VM/RUN takes longer to load these files 
_ | and to get to the task at hand (running your program) 
| than does RUN386. RUN386 seemed to cooperate with my 
| editor (Epsilon), whereas VM/RUN did not. Both VM/RUN 


and RUN386 did run under my make utility (Polymake). 


| VM/RUN also clears the screen during initialization, 


which did not seem appropriate. And finally, VM/RUN is 
between 7 and 15 percent slower executing identical code 
on the same Compaq Deskpro 386. This is presumably 
because of hardware interrupt handling or overhead as- 
sociated with running at CPL 3 rather than CPL 0 as RUN386 


| does. (CPL is the current processor level and represents 
| the level of privileges that should be granted to a pro- 
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MetaWare Incorporated announces the first 
available C and Pascal compilers that generate 


protected-mode 80386 code 


for running on any 80386 machine that runs MS-DOS (eg., the 
Compaq Deskpro 386 or the IBM Personal System/2 Model 80). 
The compilers are functionally identical to our well-respected 
8086/286 MS-DOS High C™ and Professional Pascal ™ com- 
pilers, but now you can get them generating 80386 code. 


There’s no reason to wait! Industry leaders such as ANSA and 
Fox Software are already converting their 16-bit database products 
to 32-bit protected mode, getting increases in speed and function- 
ality. Dont wait years for Microsoft's 386DOS — your competition 
will have a big jump on you! 


Expand your application to the large 32-bit address space and 
the full 32-bit registers of the 80386. Contact MetaWare for your 
80386 software solution today! 
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TOTAL CONTROL 
with LMI FORTH™ 





For Programming Professionals: 


an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 


For Development: 
Interactive Forth-83 Interpreter/Compilers 


e 16-bit and 32-bit implementations 

e Full screen editor and assembler 

e Uses standard operating system files 

e 400 page manual written in plain English 

e Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 


For Applications: Forth-83 Metacompiler 


e Unique table-driven multi-pass Forth compiler 

¢ Compiles compact ROMable or disk-based applications 

e Excellent error handling 

e Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

¢ Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

e No license fee or royalty for compiled applications 


For Speed: CForth Application Compiler 


e Translates “high-level” Forth into in-line, optimized 
machine code 
e Can generate ROMable code 


Support Services for registered users: 


e Technical Assistance Hotline 
e Periodic newsletters and low-cost updates 
e Bulletin Board System 


Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 










Laboratory Microsystems Incorporated 
fe Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 


Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 

France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 

Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 

Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 
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80386 APPLICATIONS TODAY 
(continued from page 20) 


gram—0 is the most privileged level.) Other explanations 
are possible, and the results may not repeat on non-Com- 
paq 386 machines. 

Softguard’s product does outperform Phar Lap’s in one 
important area—memory allocation. In addition to being 
more flexible (through the profile discussed above), Soft- 
guard’s also seems to end up with more memory avail- 
able. Running a binary search between 0 and MAXINT (2 
billion), Softguard’s reported 1,656,288 bytes available in a 
2-megabyte system, whereas Phar Lap’s reported only 
1,496,912 bytes available. Of course, the more memory 
you have in the machine, the more memory will be avail- 
able for 386 programs (until you hit that 4-gigabyte limit). 


The Hardware 

None of this discussion would matter if there were not 
computers on which to run these new environments. 
The Compag Deskpro 386 proved to be an excellent per- 
former on all counts. It was a joy to use. Everything about 
this machine is fast, except the tape drive. The machine 
has four speed modes—common, fast, high, and auto. 
Common speed is 4 MHz and is comparable to a 6-MHz 
IBM PC/AT. Fast is 8 MHz and is a bit faster than an 8-MHz 
AT. High is 16 MHz and is unlike anything you have had 
on your desk before. Auto mode switches between high 
and fast, depending on the diskette motor-on signal, at- 
tempting to ease speed incompatibilities in such areas as 
floppy-disk access. I ran in high-speed mode exclusively 
and had no problems, although I did not run any copy- 
protected software. The bus version of Microsoft Mouse 
also worked well. 

Unless you believe the rumors about Intel building a 
386 with 286 pinouts (shaving address bus and data bus 
pins in the process), I believe your next MS-DOS machine 
should have a 386 CPU. I know mine will. And more soft- 
ware developers have announced 386-specific applica- 
tions in the six months since Compaq introduced its Desk- 
pro 386 than all the 286 specific applications announced 
since, well, ever. 


Summary 

The point of this article is to convince you that you can get 
started developing 386-based applications now, without 
waiting for a 386 OS/2 to arrive, whenever that may be. If 
you develop software in a high-level language, such as 
MetaWare’s High-C or Professional Pascal, you will at 
most have to recompile and relink your application to get 


it to run under some new environment. 


The tools to do these things are still young but are cer- 
tainly adequate for conventional application develop- 
ment. They will undoubtedly get better as time goes on 
and probably are already significantly better than the 
tools I used to write this article in February and early 
March. I hope that anyone who wishes to do develop- 
ment for the 386 will contact each of the vendors men- 
tioned here to get more up-to-date information. 


DDJ 
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Circle Reader Service No. 1. 
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Develop DB applications 10 times faster without 
the coding pain...you'll swear it’s Magic 


MAGIC PC 


Task Definition 


Execution Definition 


AKER Corp. 


13.Order Entry Screen 


Description 


: Description 
2|Customers 


Visual Programming with Magic PC looks as simple as this. To design an application you quickly place your 
design specifications into menu-driven Task Tables without having to write a single line of code. For example, 
just by highlighting the Execute Program operation on the left screen and also highlighting the Item List 


Free yourself from coding 

Database professionals throughout the world are 
discovering a new way to dramatically cut develop- 
ment time. 


So can you! With Magic PC, the Visual Database 
Language by Aker. 


Consultants, VAR’s, Software Houses and DP MIS 
professionals: If you develop DB applications for a 
living, now you can tackle any database application 
10 times faster than with your DBMS or 4GL. 

What makes you so fast with Magic PC? 

It’s not magic... .it’s simply because Magic PC finally 
frees you from coding. And doesn’t coding take up 
most of your time right now? 

Magic PC lets you leverage your design skills 
instead of wasting your time coding. Now you can 
generate a fully functional prototype in just hours for 
quick customer feedback, and easily refine the same 
prototype to a finished application. 

All you do is enter your system design specifica- 
tions directly into Magic PC’s non-procedural menu- 
driven Tables, as ideas come to mind, and Magic PC 
generates the programs for you automatically. 

Magic PC gives you a free hand to design powerful 
data management systems limited only by your own 
imagination. Without the time consuming mechani- 
cal details of conventional procedural programming. 
There’s your competitive edge. The rest is up to you. 

Your biggest time saving comes from Magic PC’s 
dynamic adaptation to spontaneous design changes. 
You’re free to change your design on the fly, and 
Magic PC automatically updates your programs and 
data files online. No more time wasted maintaining 
each program manually with every small change. 


Visual Programming Power 

You program with Magic PC by describing your 
data elements with Data Dictionary Tables (Files, 
Fields, Keys), and placing your system design spec- 
ifications into Task Description Tables. 

The Tasks can be nested within one another or 
dynamically Link to satellite Tasks, to give you true 
One-to-Many relational database power. 

Only 13 Task Operations harness the power of 
Magic PC. Operations are specific enough to elimi- 
nate the need for tiresome coding, yet elastic enough 
to produce robust custom applications. 

Use the Task building blocks to quickly generate 
Online Programs: Screens, Window Zooms, Menus; 
or Batch Programs: Reports, Updates, Data Import/ 
Export and much more. 

You develop the Task Tables visually on the screen 
by highlighting selections from Window Zooms and 
pop-up menu-driven Tables. You’re not forced to fol- 
low any particular Table sequence, and there’s no 
coding to slow you down. It’s that simple. 

You can apply mathematical and logical Expres- 
sions, or use the built-in Functions directly in the Task 
Tables to automate conditional Task processing, to 
display custom error messages or even invoke exter- 
nal applications such as spreadsheet, word processing 
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or communication programs, transparently from 
within your Magic PC application programs. 

Magic PC generates your application by fusing all 
your Data Dictionary and Program Tables seamlessly 
into a single Integrated Library, and automatically 
maintains changes online for optimal, bug-free per- 
formance, so you always get it right the first time. 

Your application is executed at runtime by a Magic 
Run engine for stand-alone operation, and you can 
distribute your applications at a low cost and protect 
your design. Magic Run has a built-in visual interface 
to manipulate data and get on-the-spot ad-hoc infor- 
mation without any commands or syntax, simply by 
highlighting selections from menus. Data validation, 
security and error-checking are done automatically 
for you without programming. 

Magic PC has built-in support for File and Record 
Locking so you can design multi-user applications 
for a local area network, and share data with any 
number of Magic Run users. 

Magic PC integrates the Btrieve file manager inter- 
nally, supporting the B-Tree file structure for fast high 
performance data access, and fault tolerant recovery 
during power failures. 

Magic PC’s powerful Window Zoom lets you 
design composite screens with windows to probe 
deep into the application through nested windows and 
manipulate the data underneath. By Zooming from 
any field, your end-user can conveniently query, copy 
or even create data in other programs directly through 
the windows, without stopping their screen session. 
The window frame size does not limit the available 
Data View since each window has built-in horizontal 
and vertical scrolling. 


Magic PC is the professional’s choice: 

IBM France: “IBM encourages Magic PC and 
salutes such evolution...” 

Israeli Air Force: “We were convinced that it was 
not possible to have a design tool powerful enough to 
implement real life applications without a program- 
ming language. Magic PC changed our mind...” 

PC Magazine: “If the thought of programming 
database applications makes you tremble, Magic PC 
is for you. The applications generator saves users 
from the need to deal with much dreaded computer 
language code...” 

PC Tech Journal: “Magic PC is probably the best 
integrated database application and screen generator 
that we have seen...very smooth system, and 
smoothness comes at a premium these days...” 

PC World: “Relational data managers and appli- 
cation generators that offer power without program- 
ming are a bit like perpetual motion machines — very 
rare. Into that vacuum comes Magic PC, a data man- 
agement tool without language that is ideal for 
turnkey applications...” 

PC Week: “Rather than use a written programming 
language the user is given a great deal of freedom and 
power to create complex relational database applica- 
tions...this package is a true time-saver. ..” 
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program in the Program Menu, you tell Magic PC to Zoom into the Item List program through the window 


shown on the right screen. The window will automatically scroll the Item List data horizontally and vertically, 
and allow query, “cut and paste” copy or even creation of new Items. 
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Get your Magic Tutorial for only $19.95 

See for yourself how fast and powerful visual 
programming can be for you. Order your copy of 
Magic PC Tutorial including Tutorial disks, and a 
step-by-step tutorial to quickly set up an Order Entry 
application without coding. All for only $19.95 and 
We'll credit the Tutorial cost towards the $695 Magic 
PC price for up to 30 days. 


Or save $500 at no risk! 

Yes, for a short time only, qualified VAR’s can save 
almost $500 off the list price and get the complete 
unprotected Magic PC software and documentation 
at a special VAR price of $199* with no risk. Keep 
it at this low price only if it’s as good as we say, or 
return it within 30 days for a full refund if you’re not 
completely satisfied. Act now and you’ll also get 2 
Magic Run (runtime modules) for only $95. 


Order now for immediate delivery 

Call this toll-free number now with your credit card 
or COD charge, or send the Order Coupon below 
today with your check to Aker. 


1-800-345-MAGIC 
in CA 714-250-1718 


‘Snails. 
AAAE RICAN] 


MasterCard 
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Yes, please rush me the following 
Prices include 2nd day shipping 














LJ Magic PC Tutorial $ 25.95 
L] Magic PC (VAR’s only) $209.00 
LJ Magic PC $705.00 
LJ Magic Run $100.00 
in CA add 6% tax idee iaes 
Total $ 

Ship to: 

Address: 

City/ST/Zip: 

Phone: 





OEM inquiries are welcome. Prices valid in North America only. 

*Less $19.95 restocking fee. Limit one per customer, subject to availability. Not for 
resale. 

System requirements: IBM PC, XT, AT and 100% compatibles, PC-DOS 2.0 or later, 


512K and hard disk. 





Aker Corp. 18007 Skypark Cir. B2, Irvine, CA 92714 
Tlx 4931184 AKER UI 

Aker S.A. 11 Route de Florissant CH-1206, Geneve 
Switzerland Tlx 421792 AKER CH 


Trademarks: Magic PC, The Visual Database Language, Window Zoom, Magic 
Run, Magic LAN and Magic PC Tutorial are trademarks of Aker Corp., IBM PC and 
PC-DOS are trademarks of IBM Corp., Novell is a trademark of Novell Inc., Btrieve 
is a trademark of Softcraft Inc. 
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Programming Techniques 


system on a personal computer 
requires that programmers rec- 
ognize the bottlenecks of that system 
and reduce or eliminate them. It is 
not enough simply to recode a high- 
level language in assembly language; 
the code must take advantage of the 
special quirks of a host machine. 
One of my responsibilities in the PC 
Host Group at SAS Institute is to en- 
sure that PC host code is as small and 
as fast as possible. During this pro- 
cess, I have collected several optimi- 
zation techniques, some of which are 
applicable to other architectures. 
These techniques are use of special 
instructions, unorthodox use of con- 
ventional instructions, and rear- 
rangement of jump sequences. In the 
following discussion, please note that 
all timings are for the 8088 micropro- 
cessor and assume that the 4-byte 
8088 prefetch queue is empty at the 
start of execution. 


[overeat a large software 


Repeat Instructions 

One of the techniques involves using 
the repeat move and repeat store in- 
structions. The idea is to move/store 
as much data per instruction as possi- 
ble. Example 1, page 25, shows the 
code to move a number of bytes, 
where the source is in ds:si, the desti- 
nation is in es:di, and the count is in 
cx. I have also applied this technique 
to the MC68000, although the even 
address requirements of that chip 
complicate the logic somewhat (see 
the box on page 26). 


©1986 by SAS Institute Inc., Box 8000, 
SAS Circle, Cary, NC 27511-8000. Tom 
Disque is a software developer at SAS 
Institute Inc. 
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by Tom Disque 


A collection 
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optimization 
techniques 





Another repeat instruction, the re- 
peat compare, allows me to trim a 
few cycles. This instruction is used in 
a compare string routine that returns 
0 if the strings are equal, 1 if string 1 
< string 2, and -1if string 1 > string 
2. Originally, my code looked like 
that shown in Example 2, page 25, 
where string 1 is in ds:si, string 2 is in 
es:di, and the count is in cx. With this 
version, no matter which value is to 
be returned, a 16-cycle jump has to be 
executed. My final code is shown in 
Example 3, page 25. This code uses 
only nine cycles for above or below. 

Probably the biggest bottleneck in 
any screen-intensive code for the IBM 
Pc’s color display is the wait for hori- 
zontal retrace—that period when the 
electron beam is turned off and 
moved to the far left of the screen to 
draw another scan line. This is the 
only time data can be moved to 
screen memory without causing 
flicker on the screen unless vertical 
retrace time is used (during vertical 
retrace, the electron beam is moved 
from the lower-right corner to the 
upper-left corner). Vertical retrace 
screen updates caused flickering dur- 
ing scrolls, so I used horizontal re- 
trace screen updates. I discovered, 
however, that using a movsw for a 
character/attribute pair could cause 
flicker on some screens, so I changed 
the code in Example 4, page 25, to 


that in Example 5, page 25. The im- 
proved code enabled me to move one 
word per retrace on the IBM PC/XT 
and two words per retrace on the IBM 
PC/AT, with no flicker. I was even 
able to write three words per retrace 
with a small amount of flicker 
around the edges of the screen on the 
AT but decided to stick with two 
words. 


Pointers 
Much of our group’s code involves 
pointer addition and subtraction, so 
we use sequences to add a constant to 
or subtract it from a normalized 
pointer and to produce a normalized 
pointer (normalized means the offset 
is always less than 16). 

This code adds/subtracts the con- 
stant 1234H hex from the pointer in 
axchx: 


Add 

add bx,0FFF4H 
adc ax,123H 
and bx,0FH 
Subtract 

sub bx,OFFF4H 
sbb ax,123H 
and bx,0FH 


We use the following sequences to 
add to or subtract from an unnorma- 
lized pointer, giving an unnorma- 
lized result with an offset less than 
32,767: 


Add 
add__bx,value 
jge __ labell 
add ax,800H 
and bh,7FH 
label1: 
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Subtract 
sub bx, value 
jge  label2 
sub ax,800H 
and bh,7FH 
label2: 


We use the following sequence to 
normalize a pointer (again, in ax:bx): 


mov  dx,bx 
and  bx,0FH 
shr dx,1 
shr dx,1 
shr dx,1 
shr dx,1 
add = ax,dx 


Note that this sequence could be cod- 
ed as: 


mov dx,bx 
and = bx,0FH 
mov cl,4 
shr dx,cl 
add = ax,dx 


This version would be smaller, but 
the shifts would take longer on the 
8086/80186, 80286, and so on. Note 
that because of the smaller size of the 
8088/80188 microprocessors’ pre- 
fetch queue, the time is approximate- 
ly the same. 

It is common in high-level lan- 
guages such as C to assign a value toa 
variable based on a condition, as in: 


i= 1; 
if (k > 0) i = 2; 


In this example, the idea is to assign 
the most likely value in the first state- 
ment and the least likely in the condi- 
tional. In some cases in assembly lan- 
guage, the reverse turns out to be 
most efficient, as follows: 


or ah,80H ; set blinking 
test al,BLINK 
jnz blinking 
and ah,7FH ; clear 
blinking 
blinking: 


In this example, which sets or clears 
the blinking attribute for the screen 
display, the least likely alternative is 
for blinking to be set (not many peo- 
ple enjoy looking at a blinking screen 
eight hours a day). 

If the jump is taken, it uses 16 cy- 
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cles; if not, the jump uses 4 cycles and 
the instruction to clear blinking uses 4 
cycles—half the amount of time of a 
jump taken. Note that the “taken 
jump/not taken jump” relative tim- 
ings change with different chips in 
the 8080 family; the trend seems to bea 
reduction in the timing of a taken 
jump. 


Miscellaneous Techniques 

Finally, I have a few miscellaneous 
optimization techniques. When ex- 
changing segment registers, a com- 


shr 
jne 
movsb 
word move: 
JCM 
rep 


Cu, i 
word move 


exit 
movsw 
exit: 


mon technique is: 


push cs 
popes 


Much faster (4 cyles vs. 26 cycles) but 
bigger (4 bytes vs. 2 bytes) is: 


MmOv 
Mov 


ax,Cs 
es,ax 


Another sequence to watch out for 
is: 


#Convert byte count to word count 
zIf cx was odd, carry will be set 
7Move the odd byte 


zIn case cx was equal to 1 originally 
7Move words 





Example 1: Using the repeat move and repeat store instructions to move a 


number of bytes 


ax,ax 
compsb 
exit 
above 


short exit 
ax 


7Assume equal 

;Compare strings 

*If equal, we're finished 
;If above, set ax to 1 

ax 7Below. 


Set flag to -1l 





Example 2: Code for a compare string routine 


; If above, cf=0, if below cf=1 
If above, cf=1, if below cf=0 
; If above ax=1, if below ax=-1 





Example 3: Improved version of the compare string routine shown in Ex- 


ample 2 


Get status 

sis it iow? 

sWait until it is 
*No more interrupts 
7Get status 

ris it high? 

pWait until it is 
;Write to the screen 
sReenable interrupts 





Example 4: Screen memory update routine synchronized to horizontal retrace 


bx, [si] 
al,dx 
ai,1 
lolab 


al,dx 

al,1 

hilab 
es:[(di],bx 


Load value "outside of" cli-sti 
7Get status 

tis it low? 

sWait until it is 

7;No more interrupts 

7Get status 

zis it high? 

Wait until it is 

sWrite to the screen 

;Reenable interrupts 





Example 5: Improved version of code shown in Example 4 
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ax,word ptr 


bx, ax 


ax,word ptr 


ax,word ptr 
bx,word ptr 


bx, [bp] . value 


ax,es 


[op] .value 
[op] .value [2] 


[op] . value [2] 
[op] . value 


78 bytes, 30 cycles 


76 bytes, 35 cycles 


75 bytes, 35 cycles 





Example 6: Three ways to load a pointer into ax:bx 





evenaddr 


evenlen 


x 


wordmove 


longmove 
longloop 


cddeven 


evencnt 


oddent 


Ingmove2 
iIngloop2 


bytemove 


loop 


exit 


empi.1 
blt.s 


moveq. 1 
move .1 
lsr.b 
addx.1 


move.1] 
btst 
beq.s 
addq.1l 


btst 
bne.s 


lsr.b 


btst 
beq.s 
addq.1 


empi.l 


beq.s 
blt.s 
move .b 


asr.l 
bee.s 
move .w 


subq.1 
move.1 
dbf 
bra.s 


btst 
bne.s 


subq.1 


move .b 


asr.1 
bec.s 
move.w 


subq.1 


move.1 


move.b 
bra.s 


subq.1 


move .b 


rts 


#15,d0 
bytemove 


#0,d2 
a0,a3 
#1,da3 
d2,d2 


al,d3 
#0,a3 
evenaddr 
#1,d2 


#0,d2 
byt emove 


#1,d2 


#0,ca0 
evenlen 
#1,d2 


#1,d2 


oddeven 
wordmove 
(a0)+, (al) + 


#2,d0 
longmove 
(a0) +, (al) + 


#1,d0 

(a0) +, (al) + 
d0, longloop 
exit 


#0,d0 
oddcnt 


#1, a0 
{a0)+, (al)+ 


#2,d0 
Ingmove2 
(a0) +, (al) + 


#1,d0 

(a0) +, (al) + 
a0, lngloop2 
(a0) +, (al) + 
exit 


#1,d0 
(aQ)+, (al)+ 
a0, loop 


If < 15, byte move is faster 


Special code to move words 

Addresses must both be even or both be odd 
d2 is a flag for code below 

Copy the address register 

Is from an odd address? 

If from is odd, increment flag 


Cannot ‘btst' an address register 


To is odd. increment flag 


If one addr is odd and the other even, 
we cannot do it 


If both were odd, d2 is 2; else it is 0 
Now d2 = 1 indicates odd, d2 = 0 says even 
Is n an odd number? 


N is odd. Set flag 

Find out which even/odd 
combination we have here 

One is odd, one is even 

Both are even. Take off! 

Both are odd. Fix the odd byte 
Convert byte count to word count 
Any odd byte has been moved 

Now move extra half-word 


Decrement for dbf 


Was the count the odd one? 

The address was odd, count even; 
Now the addr is even, count odd! 
Convert byte count to word count 


The odd byte will been moved later 
Now move extra half-word 


Decrement for dbf 


Move the odd byte 


Decrement for dbf 
*tot+ = *from++ 
while --n > 0 


Return 


Example 7: Performing 32-bit moves on the 68000 
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8088 ASSEMBLY LANGUAGE 
(continued from page 25) 


mov. cl,4 
shl ax,cl 


Faster (8 cycles [plus 8 more to fetch 
the two extra instructions] vs. 28 cy- 
cles) but bigger (8 bytes vs. 4 bytes) is: 


shl ax,1 
shl ax,1 
shl ax,1 
shl ax,1 


If the count had been 8: 


32-Bit Moves 
on the Motorola 
68000 Microprocessor 


The Motorola 68000 microprocessor 
poses a somewhat more difficult 
problem than the Intel chips when 
you want to move more than 8 bits of 
data at a time. The 68000 can move 32 
bits in a single instruction, but it must 
move from an even address when 
doing so; only 8-bit moves can have 
an odd address. 

Example 7, left, shows code for a 
technique that allows 32-bit moves 
most of the time. Here, register AQ 
contains the pointer from which the 
data is to be moved, register Ai con- 
tains the register to which the data is 
to be moved, and register DO contains 
the number of bytes to move. The 
overhead because of the length 
check over a straight byte move (at 8 
bytes) is 8.6 percent; the overhead if 
one address is odd and the other is 
even (at 16 bytes) is 4.9 percent. In or- 
der to have the best of both worlds, I 
wrote separate 8-byte and 16-byte 
move routines that only move bytes 
at a time. Because these are the only 
common sizes below or close to the 
threshold that I move, I have gained 
an increase in speed at every level. In 
fact, moves of as little as 100 bytes 
produce a threefold increase in 
speed over the simple byte move 
routine. 
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WINDOWS FOR DATA" 





The first choice 
of professional 
C programmers 











“Windows for Data is the best 
programming tool I’ve ever used. 
It’s the most flexible I've seen. 
Whenever I’ve wanted to do something, 
I've been able to find a way” 


Professionals choose our tools because 
they are designed, crafted, and supported 
for professionals. Here at Vermont Creative 
Software, we understand that performance 
and pleasure in programming derive 
from more than a long list of functions. 
Windows for Data provides: 


PROFESSIONAL FLEXIBILITY: 
Our customers repeatedly tell us how 
they've used WFD in ways we never imagin- 
ed - but which we anticipated by designing 
WED for unprecedented adaptability. Vir- 
tually every capability and feature can be 
modified to meet special needs. You will be 
amazed at what you can do with WFD. 


PROFESSIONAL PERFORMANCE: 
Screen output is crisp and fast. Windows, 
menus, and data-entry forms snap up and 
down from the screen. WFD is built upon 
and includes Windows for C, the win- 
dowing system rated #1 in speed and 
overall quality in PC Tech Journal (William 
Hunt, July 1985). 


PROFESSIONAL RELIABILITY: 
An unreliable tool is worse than no tool at 
all. VCS products are known in the industry 
for their exceptional reliability. Ask anyone 
who owns one. 


PROFESSIONAL DOCUMENTA- 
TION: Over 600 pages of documentation 
provide step-by-step explanations for each 
major application, a reference page for each 
function, listings of functions alphabetical- 
ly and by usage, and a fully cross-referenced 








Steven Weiss, 
Stratford Systems 


index. Extensive tutorials and demonstra- 
tion programs assist learning. 


PROFESSIONAL TECHNICAL 
SUPPORT: The same expert program- 
mers that develop our products provide 
prompt. knowledgeable technical support. 


PROFESSIONAL PORTABILITY: 
High-performance versions of VCS 
products are available for XENIX, 
UNIX, and VMS, as well as DOS. No 
royalties on end-user applications. 





OUR CHALLENGE AND 
GUARANTEE 

If you have an application where no 

other tool can do the job, try Windows 

for Data. If it doesn’t help you solve 

your problem, RETURN FOR A FULL 

REFUND. YOU MUST BE SATISFIED. 


Ask for FREE DEMO DISKETTE 







Vermont 
Creative 
Software 





21 Elm Ave. 
Richford. VT 05476 
Telex: 510-601-4160 VCSOFT 


Tel.: 802-848-7731 


Prices: PCDOS* $395: XENIX. VMS. UNI? 
*PCDOS specify C compiler. 
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WINDOWS FOR DATA 


for DOS, UNIX, VMS ... 
The complete windowing data entry, menu, 
and help system that does the hard job 
others can't — we guarantee it! 


Pop-up data entry windows; field types for 
all C data types, plus decimals, dates, and 
times; auto conversion to and from strings 
for all field types; system and user supplied 
validation functions; range checking; re- 
quired, must-fill, and protected fields: free- 
form movement; multiple-choice field entry; 
scrollable sub-forms. Branch and nest win- 
dows, forms, and menus. 


Complete context-sentitive help system 
with pop-up windows and scrollable text. 


Pop-up, pull-down, scrollable, and Lotus- 
style menus. 





NEW FOR DEBUGGING: Exclusive 
VCS Error Traceback System auto- 
matically identifies the location and 
cause of program errors. Eliminates the 
need to code error checks on all function 
calls!) VCS Memory Integrity Check- 
ing helps catch those hard-to-detect, 
memory-corruption errors. 


NEW FOR ERROR HANDLING: In- 
stall your own error handler to be called 
whenever a function detects an error. 


NEW FORM LAYOUT UTILITY sim- 
plifies form design. 





















8088 ASSEMBLY LANGUAGE 
(continued from page 26) 


xor al,al 

would be even faster and the same 
size. An optimization of structure ref- 
erences replaces: 


xor Si,SI 
‘Reference the Oth structure 
mov ax|sil.value 
with: 
mov ax,0].value 


A pointer can be loaded into ax:bx 
in three ways, as shown in Example 
6, page 26. Note that the first method 
is faster because loads and stores us- 
ing the accumulator don t use any cy- 
cles for effective address calculation. 
On the 80188 microprocessor and lat- 
er chips, the effective address calcu- 
lation is taken care of by the hard- 
ware, which means that the third 
method will be fastest on those chips. 

One quirk of the 8088 microproces- 
sor instruction set appears in the tim- 
ing of the movsw instruction as op- 
posed to the same _ instruction 
prefaced by a repeat byte. The 
movsw instruction is 26 cycles alone 
and 9 + 25 cycles per repeat when 
prefaced by a repeat byte. This 
means that when less than nine repe- 
titions are to be done, the faster alter- 
native is to code the movsw instruc- 
tions one at a time. The same is true of 
the movsb, stosw, and stosb instruc- 
tions. This seems odd because the re- 
peat instructions always have the 
overhead of decrementing the cx reg- 
ister; thus, you’d expect it to be 
slower. 

It is always important to check the 
timings of instruction sequences on 
the target machine; the relative mag- 
nitudes of the timings given here, for 
instance, are different from those for 
the 80188 microprocessor. I have 
used the 8088 microprocessor’s tim- 
ings because the 8088 shows im- 
provements most dramatically. Com- 
mon assumptions about floating- 
point arithmetic don’t always apply 
on the 8087 coprocessor, either. For 
example, one common assumption is 
that, if three adds could replace two 
multiplies, the resultant code would 
be faster—not so with the 8087 
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coprocessor! 

I have shown that code can be opti- 
mized by use of special instructions, 
unusual usage of conventional in- 


structions, and rearrangement of 


code. The techniques outlined here, 
if used alone and in infrequently 
called code, do not necessarily pro- 
duce noticeable results, however. 
First, you must identify bottle- 
necks—even a small reduction in 
time is noticeable in a true bottle- 


shr cx, 1 

jne word move 

movsb 
word move: 

jCXZ exit 

mov ax, Si 

and ax,dai 

shr ax,1 

jne not_odd 

movsb 

dec ex 

jcxz finish 

rep movsw 
finish: movsb 

jmp short exit 
not odd: 

rep mOovVSsWw 
exit: 


neck. If you don't notice any speed 
improvements, it’s not worth opti- 
mizing your code. 


Acknowledgments 

I would like to thank John Toebes 
and Mike Jones for the use of their 
pointer techniques in this article. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 2. 


;As in the text 


;Use ax to test addresses 
;Put the addresses together 
If both addresses were odd, 
zthe carry flag will be set 
;Move to an even address 

7One less word for the repeat 
;1if only one word 


Move the last byte 


Example 8: Correction to increase speed of movsw code for odd addresses 


on an 8086 


An Improved 
Move for 
Wider Buses 


The repeat move given in the text is 
optimal for machines using an 8-bit 
data path, but the code can be im- 
proved in some cases for machines 
using a 16-bit path (that is, using CPUs 
such as the 8086, 80186, and 80286). 
When a movsw instruction executes 
on the 8088, it generates two external 
bus cycles regardless of whether the 
addresses are odd or even. When a 
movsw executes on the 8086, howev- 
er, only one bus cycle is generated for 
even addresses. (Two bus cycles are 
still generated for odd addresses.) 

At first glance, the code to convert 
from byte count to word count in the 
text might seem useless. But bus cy- 
cles alone do not determine instruc- 
tion speed. Empirical results on a 
Leading Edge Model D (with an 8088 
CPU) show roughly a 20 percent in- 
crease in execution speed. Ideally, 


you would expect the speed to be al- 
most double, so you can see what a 
large effect the bus size has on execu- 
tion speed when accessing memory. 

In order to correct for the odd ad- 
dress problem, the code sequence in 
Example 8, above, can be used. 

Without this correction, the movsw 
code for even addresses is twice as 
fast as for odd addresses; in fact, the 
odd address word move runs as slow 
as a byte move! With the correction, 
the odd address’ move is almost the 
same speed. Please note that this code 
is best used for moving large blocks of 
data; for small blocks, the overhead is 
a significant factor. Also keep in 
mind that both pointers will usually 
be even because most compilers try 
to align objects on the most efficient 
boundaries. 
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286 / 386 


TEXT bIRE eS COR 16 


scrlines = SCRLINES: 

scrwidth = §CRWIDTH: 

clrscreen(scr]ines-28); 

show( main_menu ): 

a Oe ler lame ya) 

process( ret_val, (new ved 
} while ( ret_val ¢= EXIT_OK ) 


FILE: PHOTO. 263 


‘Protected Mode’ Version Now Available 


INDOW 1 


makes your program development and word 
processing as efficient and easy as 
possible. VEDIT PLUS is simple enough to 
learn and use for the novice, yet has the 
ST eee et eet Lt ae ert ats at 
the most demanding computer professional. 
VEDIT PLUS is particularly suited for 
writing all types of programs and lengthy 
documents such as reports or manuscripts. 





sp 2 


This shows how [JEDIT PLUS can perform 


One window is used for word 


if (new_vedit & (table in ¢- 
printf( crt_sel ): 
if (yesno(" ")) setert( ar 
CoE hos ab a 


windowing. 
processing, a sécond for program 


i 
a Is 


DIRECTORY C:\VEDIT\NEW 
Pl) dd DP 
STH) 9 Al meny 0d) 


| | 
| As ee a 


3 Dd | 


Stunning speed. Unmatched performance. Total flexibil- 
ity. Simple and intuitive operation. The newest VEDIT 
PLUS defies comparison. 


Try A Dazzling Demo Yourself. 


The free demo disk is fully functional - you can try all 
features yourself. Best, the demo includes a dazzling 
menu-driven tutorial - you experiment in one window 
while another gives instructions. 


The powerful ‘macro’ programming language helps you 
eliminate repetitive editing tasks. The impressive 
demo/tutorial is written entirely as a ‘macro’ - it shows that 
no other editor’s ‘macro’ language even comes close. 


Go ahead. Call for your free demo today. You'll see why 
VEDIT PLUS has been the #1 choice of programmers, 
writers and engineers since 1980. 


Available for IBM PC, Tandy 2000, DEC Rainbow, MS- 
DOS, CP/M-86 and CP/M-80. (Yes! We support windows 
on most CRT terminals, including CRT’s connected to an 
IBM PC.) Order direct or from your dealer. $185. 


Compare features 
and speed BRIEF Norton PMATE VEDIT 
Editor PLUS 

‘Off the cuff’ macros No No Yes Yes 
Built-in macros Yes No Yes Yes 
Keystroke macros Only1 No No 1007 
Multiple file editing ao: 2 No 20* 
Windows 207 2 No 207 
Macro execution window No No No Yes 
Trace & Breakpoint macros No No Yes Yes 
Execute DOS commands’ Yes Yes Yes Yes 
Configurable keyboard 

Layout Hard No Hard Easy 
‘Cut and paste’ buffers 1 1 1 36 
Undo line changes Yes No No Yes 
Paragraph justification No No No Yes 
On-line calculator No No No Yes 


Manual size / index 250/No 42/No 


Benchmarks in 120K File: 


1:07 min 6 sec 
Cannot 2sec 
Cannot 11sec 


1:15 min 34 sec 
20 sec Cannot 
2:40 min Cannot 


2000 replacements 
Pattern matching search 
Pattern matching replace 


VEDIT and CompuView are registered trademarks of CompuView Products, Inc. BRIEF is a 
trademark of UnderWare, Inc. PMATE is a trademark of Phoenix Technologies Ltd. Norton 


Editor is a trademark of Peter Norton Computing Inc. 


* Demo Disk is fully functional, but does not readily write large files. 


development, and the third for commands. 
Up to 4@ windows are supported and you 
determine each window's size and color. 





469/Yes 380/Yes 


PROGRAMMABLE 
EDITOR 


FREE Fully Functional 
Demo Disk * 


if 





Call for 286 / XENIX Version 


Fully Network Compatible 





¢ Simultaneously edit up to 37 files of unlimited size. 

e Split the screen into variable sized windows. 

e ‘Virtual’ disk buffering simplifies editing of large files. 

e Memory management supports up to 640K. 

e Execute DOS commands or other programs. 

e MS-DOS pathname support. 

¢ Horizontal scrolling - edit long lines. 

e Flexible ‘cut and paste’ with 36 ‘scratch-pad’ buffers. 

e Customization - determine your own keyboard layout, create 
your own editing functions, support any screen size. 

e Optimized for IBM PC/XT/AT. Color windows. 43 line EGA. 


EASY TO USE 


e Interactive on-line help is user changeable and expandable. 
¢ On-line integer calculator (also algebraic expressions). 

¢ Single key search and global or selective replace. 

e Pop-up menus for easy access to many editing functions. 

e Keystroke macros speed editing, ‘hot keys’ for menu 
functions. 


FOR PROGRAMMERS 


e Automatic Indent/Undent for ‘C’, PL/I, PASCAL, etc. 

e Match/check nested parentheses, i.e. ‘{’ and ‘}’ for ‘C’. 

e Automatic conversion to upper case for assembly language 
labels, opcodes, operands with comments unchanged. 

e Optional 8080 to 8086 source code translator. 


FOR WRITERS 


e Word Wrap and paragraph formatting at adjustable margins. 
e Right margin justification. 

e Support foreign, graphic and special characters. 

¢ Convert to/from WordStar and mainframe files. 

e Print any portion of file; selectable printer margins. 


MACRO PROGRAMMING LANGUAGE 


e ‘If-then-else’, looping, testing, branching, user prompts, 
keyboard input, 17 bit algebraic expressions, variables. 

e Flexible windowing - forms entry, select size, color, etc. 

¢ Simplifies complex text processing, formatting, conversions 
and translations. 

¢ Complete TECO capability. 

e Free macros: e Full screen file compare/merge e Sort mailing 
lists ¢ Print Formatter e Menu-driven tutorial 


CompuView 
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ARTICLES 


Logic and Knowledge 
Representation 





he syntax of PROLOG is essen- 
PBS ats limited to fact state- 

ments, which are simple 
noncompound sentences, and rule 
statements, which are if statements 
with the consequent, which must be 
a fact statement, placed on the left. 
The form of the rule statement is 
head if body. The head must be a sim- 
ple noncompound statement, and 
the body can be either simple or a 
compound built up of conjunctions, 
disjunctions, and negations. The 
body cannot itself be a conditional 
containing if. 

Even Procrustes would find this a 
severe limitation on human expres- 
sion. Once you get past the cozy gene- 
alogical examples on which PROLOG 
texts rely to introduce logic program- 
ming, reformulation of human 
thinking into forms pallatable to PRO- 
LOG can get pretty rough. Moreover, 
weighty considerations concerning 
SLD-resolution (which stands for Se- 
lecting a literal, using a Linear strate- 
gy, and searching the space of possi- 
ble deductions Depth-first) and 
unsatisfiable sets of Horn clauses 
aside, PROLOG’s arsenal of deductive 
weapons consists of a rapid fire pea- 
shooter known to the scholastics as 
modus ponens. Thus casting your 
pearls of wisdom into the jaws of 
PROLOG syntax does not guarantee 
even the most obvious deductions be- 
ing drawn by PROLOG’s single-cylin- 
der inference engine. 

Consider Lao Tsu’s chestnut: 
‘When opposites supplement each 
other, everything is harmonious.” 


Richard Butrick, Ohio University, Ath- 


ens, OH 45701. Richard is a professor 
in the Computer Science Department. 
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in PROLOG 


by Richard Butrick 


Reformulation 
of human thinking 


into PROLOG 
can be rough. 





This can be cast into PROLOG syntax 
rather handily as Everything_is_har- 
monious if all_opposites_supplement 
_each.__other. PROLOG, however, 
cannot even define from this that not 
all _ opposites — supplement — each — 
other, given the fact that not every- 
thing_is_harmonious. Basically, the 
only inference that PROLOG can per- 
form (extended by unification) is to 
infer R from: 


Rif S1 and S2 and S3...andSn 
and: 
S1 and S82 and S3...andSn 


The R on the left cannot even be 
compound! This means that the AR on 
the left cannot be of any of the fol- 
lowing forms: not L, L or M, L and M. 
What then do you do with “‘Tf there is 
a sharp move in the market, then it is 
either short covering on the up side 
or a purely technical reaction on the 
down side’”’ (that is, C or R if M)? Or 
even, more simply, “If it is an ordi- 
nary market, then it is not wise to 
buy in the first hour” (that is, not W if 
O)? 

Knowledge representation in PRO- 
LOG comes down to formulating sen- 
tences in a syntax acceptable to PRO- 
LOG and in formulating the sentences 





in such a way that PROLOG will make 
the appropriate deductions. A lot of 
creative thinking is involved in com- 
ing up with the sentences to be repre- 
sented in PROLOG (knowledge codifi- 
cation) and in organizing blocks of 
knowledge (modularization), but it 
still comes down to knowing how to 
enter such sentences to assure the 
level of deductive completeness de- 
sired. Two categories of problems 
have to be dealt with: compound 
fact/consequent representation 
problems and existential quantifica- 
tion representation problems. 


Compound Fact/Consequent 
Representation 

As indicated, the official syntax of 
PROLOG only allows the introduction 
of two types of sentences into a pro- 
gram. It accepts simple or noncom- 
pound statements (statements that do 
not contain any ifs, ands, ors, or nots), 
and it accepts conditionals of the 
form noncompound if simple-or-com- 
pound. The compound side of the 
conditional cannot itself be a condi- 
tional (it can contain only ands, ors, 
and nots). In practice, there are sever- 
al ways around this restriction, and 
in fact it is crucial to get around it for 
full knowledge representation. 

The points made here are with spe- 
cific reference to the Simple syntax 
of micro-PROLOG, which is the syntax 
that is closest to classical logic and to 
English syntax. Considerations 
brought forward apply equally to 
C&M syntax, however, because they 
refer to the underlying logic of PRO- 
LOG based on SLD-resolution. I might 
also mention in passing that, among 
the better-known, interpreted PRO- 
LOGs, only micro-PROLOG imple- 
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ments tail recursion correctly with 
no limit on the recursion. Moreover, 
metalevel programming involving 
standard syntax can be incorporated 
into Simple programs, and in that 
sense Simple syntax is a full-fledged 
PROLOG system and not a Simple Si- 
mon syntax. 


Negative Facts 

There are three ways around the re- 
striction on negative literals (nega- 
tions of simple sentences): 


fact if FAIL (1) 
not_fact (2) 
fact(not) (3) 


For example, the following PRO- 
LOG program snippet behaves just as 
if it contained negative facts in its 
fact-rule base: 


might_be_bear_market if not 
bull_market 
bull_market if FAIL 


(1a) 
(1b) 


PROLOG responds to the query is(bull- 
—market) with no and to the query 
is(might_be_bear_market) with yes. 

The corresponding program for 
the not_fact solution is: 


might_be_bear_market if 
not_bull_market 
not_bull_market 


(2a) 
(2b) 


This version can make the deduction 
might_be_bear_market and, obvi- 
ously, not_bull_market, but it cannot 
make the deduction not bull_market. 
In this regard, solution (2) is weaker 
than solution (1). 

The third solution is really a sleazy 
solution that only works because the 
dictionary maintained by the syntax 
analyzer does not keep the degree of 
the predicate: 


might_be_bear_market if not 
bull_market 
bull_market(not) 


(3a) 
(3b) 


Thus PROLOG responds to the query 
is(bull_market ) with no even though 
bull_market was used as a one-place 
predicate and not as a fact (zero- 
placed predicate). To make matters 
worse, Simple syntax accepts the 
postfix notation and so (3b) could 
have been not bull_market. Rather 
than not being treated as negation, 
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however, it is treated as a thing that 
has the property bull_market. These 
conceptual confusions make little dif- 
ference, however, as the correct re- 
sponses and deductions will be made. 
The net effect is that of declaring bull- 
_market to be a data-rel, which en- 
ters it in the dictionary but not the 
database. 

It might seem at this point that solu- 
tion (1) works fine and that negative 
facts are neatly handled by the built- 
in primitive FAIL. Unfortunately, 
there is a serious problem lying be- 
hind the negative-fact problem and 
that is that PROLOG will make falla- 
cious inferences with the introduc- 





The incorporation of 
recursion search 
methods within a 

deductive framework 

makes PROLOG 
valuable and 
powerful. 





tion of the built-in not. Consider the 
following example: 


sentence_1 if not sentence_2 
sentence_2 
sentence_3 if not sentence_1 


PROLOG not only answers no to is(sen- 
tence_1) but it also deduces sen- 
tence_3. Let us hope the following 
sentences do not find their way into a 
Pentagon expert system: 


a_pre-emptive_strike-will_occur if 
not supreme_caution_exercised 

supreme_caution_exercised 
pre-emptive_strike_defence_un- 
necessary if not pre-emptive_strike 
—will_occur 


Yes will be the response to the query 
is(pre-emptive_strike_defence_un- 
necessary ). Now there is a piece of 
artificial intelligence. The negation 
logic for PROLOG operates under 
what is called negation-by-failure, or 
the closed-world principle. This 
means that if a sentence S is not de- 
ducible, then not S is deducible. This 
type of argument is known in logic 


ne 


texts as the argument from igno- 
rance, and it commits the fallacy of 
failing to distinguish between known 
truth and truth. In a complete system 
everything true is asserted to be true 
either directly or by implication. 
Hence that which is not asserted is 
false. Because complete systems are 
few and far between, and no system 
using elementary arithmetic is com- 
plete (this is known as Gédel’s Incom- 
pleteness Result), what is needed is a 
form of negation for incomplete sys- 
tems. For such systems, the built-in 
not should be used only in those cases 
in which failure to succeed implies 
falsity, as for example in not x ON (ab 
c d). Otherwise, the negation logic 
needed must be provided by the pro- 
gram. This is solution (2). 


Compound Facts 
Consider the following compound: 


if sentence_1 then sentence_2 or 
sentence_3 


The attempted representation in 
PROLOG as: 


sentence_3 if 
sentence_1 


sentence_2 oor 


does not work because a compound 
cannot occur to the left of an if} The 
question of representation turns on 
the sorts of deductions that could be 
made from the sentence. The fol- 
lowing are possible deductions: not- 
_Sentence_1, sentence-2: or “sen- 
tence_3, sentence_2, sentence_3. The 
deduction of sentence_3, for exam- 
ple, would require the following 
entry: 


sentence_3 if sentence_1 and not. 
sentence_2 


Table 1, page 32, gives some useful 
conversions. Which conversion or 
conversions you use depends on 
which sentences you target as possi- 
ble goals within the knowledge base. 
You must then ensure that you use a 
consistent representation within the 
entire knowledge base. Needless to 
say, this isno mean task, and general- 
ly speaking, unless all the sentences 
to be represented fit within the offi- 
cial syntax, attempting to ensure that 
all legitimate deductions can be 
drawn is an impossible task. 
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PROLOG SEMANTICS 
(continued from page 31) 


The following is an example of a 


knowledge representation problem 
at the level of sentence logic (as op- 
posed to quantificational- or predi- 
cate-level logic): 


1. If aggregate expenditure is unre- 
sponsive to changes in the money 
supply and unresponsive to changes 
in the interest rate, then monetarism 
offers little hope for controlling the 
economy. (if AUM and AUI then MLH) 
2. If there is a large infusion of mon- 
ey, then interest rates will fall and 
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L andM 


ifL then M 





not(L and M) 












if L then M and K 





ifL then Mork 












if L or M then K 


if LL and M then K 














if L or M then K orH 









if LL and M then K or H 


people will be induced to hold mon- 
ey upon a large infusion of money 
rather than invest or spend. (if LIM 
then IRF and HLM) 

3. If people are induced to hold mon- 
ey upon a large infusion of money, 
then aggregate expenditure is unre- 
sponsive to changes in the money 
supply. (if HLM then AUM) 

4. Because it cannot be the case that 
both interest rates fall and people are 
not induced to hold new money, 
then aggregate expenditure is unre- 
sponsive to changes in the interest 
rate. (if either not IF or HNM then AUI) 


Representation of these “rules” in 


PROLOG 


not_L 





L 
M 


MifL 
not_L if not_M 





Lif not_M 
Mif not_L 








not MifL 
not _LifM 


MifL 
not_L if not_M 
Kit kb 

not_Lif not_K 


Mif Land not_K 
Kif Land not_M 
not_Lif not_M and not_K 





KifL 
KifM 
not_Lif not_K 
not_M if not_K 


KifLandM 
not_Mif not_KandL 
not_Lif not_K and M 





Kif Land not_H 
Kif Mand not_H 
Hif Land not_K 
Hif Mand not_K 
not_L if not_K and not_H 
not_M if not_K and not_H 


Kif Land M and not_H 
Hif LandMandnot_K 
not_Lif not_K and not_HandM 
not_Mif not_K and not_HandL 


Table 1: Some useful conversions between logic and PROLOG 
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PROLOG depends on the sorts of de- 
ductions that are of potential interest. 
Full representation is prohibitively 
large. The following representation 
allows the principle deductions of 
MLH or of not_AUM, depending on 
the facts added to the rule base: 


MLH if AUM and AUI 
not_AUM if not_MLH and AUI 
IRF if LIM 

not_LIM if not_IRF 

HLM if LIM 

not_LIM if not_HLM 

AUM if HLM 

AULif not_IF 

AUI if HNM 


Given the facts LIM and not_IF, PRO- 
LOG can deduce MLH. Given the facts 
not_MLH and HNM, PROLOG can de- 
duce not_AUM, and so forth. 


Representation at the 
Quantificational Level 
Variables in simple sentences and 
variables that occur on both the left 
and right of a conditional are treated 
as universally quantified. Variables 
that occur only on the right side of 
the if are treated as existentially 
quantified. Although this sums up in 
a nutshell PROLOG’s treatment of 
quantification, a great deal needs to 
be done to explain this policy and 
how to work within the constraints 
of the policy. 

In PROLOG the sentences: 


x is_pernicious 

x is_pernicious if x is_devious 

x is_pernicious if y is_devious and x 
admires y 


are treated as if they were the 
following: 


Every x is pernicious 
(Everyone [at Harry’s Place] is 
pernicious) 
Every x is pernicious if that x is 
devious 
(Everyone who is devious is 
pernicious) 
Every x is pernicious if some y is de- 
vious and x admires that y 
(Anyone who admires a devious 
person is pernicious) 


PROLOG provides no explicit nota- 


tion to indicate whether an x in a sen- 
tence is supposed to mean ‘“‘some x,” 
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Logic PROLOG 
(Ex)Fx F(alpha) 


(There is an x, Fx) 
(Something is an F) 
(Ex)Gx G(beta) 


Table 2: Representing existing but unknown objects in PROLOG 
Logic PROLOG 


(x)(Ey)x < y 
(Every no. is less than some no.) 


Less(x (alpha x) ) 


Table 3: Representing dependencies among unknown objects in PROLOG 
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PROLOG SEMANTICS 
(continued from page 32) 


or ‘an x,” or “all x.’’ Expressions such 
as “‘all,” “some,” and “any,” which 
are used to indicate quantification, 
are simply not part of PROLOG’s vo- 
cabulary. How then do you say that 
there are some pies in the sky as op- 
posed to saying that x is a pie in the 
sky and have PROLOG treat this state- 
ment as if it meant that every x isa 
pie in the sky? To a large extent the 
logic for indicating “some” (existen- 
tially quantified variables) must be 
provided by the programmer. 

Thoralf Skolem, the great Norwe- 
gian logician, is credited with provid- 
ing the first systematic method for 
representing quantifiers without us- 
ing quantifiers. His method utilizes 
what are aptly called Skolem func- 
tions. Fortunately, his ideas are intu- 
itive enough to avoid having to refer 
directly to his formal presentation. 
You might feel inclined at this point 
to inquire politely, without denigrat- 
ing the wonders of Skolemizing 
quantifiers, why you would wish to 
represent quantificational relation- 
ships without using quantifiers. The 
answer is that modus ponens, the 
heart of the PROLOG inference en- 
gine, can’t work with quantifiers. Be- 
sides, logicians love to frighten their 
hapless dinner companions by tell- 
ing them, as if indifferent to moral 
outrage, that they have spent the day 
in their office Skolemizing quantifi- 
ers. But then, quantifiers will do any- 
thing for a modus ponens. 

To say that something is an F is not 
to say that any specific thing is an F. 
Thus in a domain of three things— {a 
b c}— you cannot infer, say, that c is 
an F because something is an F. One 
of them is an F, but which one is, is 
not known. The idea here is to invent 
a fictitious name that by convention 
is not a name of anything in the do- 
main of discourse. This corresponds 
to the standard mathematical prac- 
tice that runs as follows: “Something 
is an F. Call it alpha.” Giving a ficti- 
tious name or moniker to unknown 
persons is also common in ordinary 
language—for example, “Kilroy” or 
“Jack the Ripper.” From a logical 
point of view, the important thing is, 
first of all, to distinguish between the 
name of an unknown object and the 
name of a known object. Using Greek 
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letters is a convenient way of doing 
this. The second thing is to make sure 
that different Greek letters are as- 
signed to objects whose existence is 
asserted by different “somes’’ (exis- 
tential quantifiers), as shown in Table 
2, page 34. 

It is important to block the infer- 
ence that something is both an F and 
a G from something is an F and some- 
thing is G. You do this by using differ- 
ent Greek letters that may or may not 
refer to the same object. The follow- 
ing PROLOG statements provide the 
information necessary for PROLOG to 
make the inference that alpha and 
beta have at least one property in 
common: 


Flalpha) (* There are Fs *) 
G(beta) (* There are Gs *) 
G(x) if F(x) (* All Fs are Gs *) 


Given the query is(G(alpha)), PROLOG 
answers yes. 

When existential quantifiers are 
used with universal quantifiers, the 
logic for eliminating quantifiers be- 
comes more complicated. Thus ‘“‘ev- 
ery number is less than some num- 
ber” cannot be rendered as “every 
number is less than alpha.’’ Clearly 
the intention of the first statement is 
not that every number is less than 
one and the same number, alpha. 
This would make alpha less than it- 
self! The intention is that the alphas 
are different for different numbers. 
This is done by making alpha x-de- 
pendent, as shown in Table 3, page 
34. Instead of using alpha, the term 
(alpha x) is used. The variable depen- 
dencies for alpha are only those uni- 
versally quantified variables that 
precede it when written in quanti- 
fied form (see Table 4, above). 

To get an idea of the inferences 
PROLOG can make with these sorts of 
sentences, consider the following: 


Loves(alpha x) (* Someone loves ev- 
eryone *) 

Loves(x (beta x)) (* Everyone loves 
someone *) 


To each of the queries is(Loves(alpha 
alpha)), is(Loves(alpha (beta x)), and 
is(Loves((beta x) (beta (beta x )))), PRO- 
LOG responds yes. 

Unfortunately, PROLOG doesn’t di- 
rectly make the legitimate inference 
“everyone is loved by someone” 
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Logic PROLOG 

(x)(Ey)Lxy Loves(x (alpha x) ) 
(x)(Ey)Lyx Loves((alpha x) x) 
(Everyone is loved by someone) 

(Ex)(y)Lxy Loves(alpha y) 
(Someone loves everyone) 

(Ex)(y)Lyx Loves(y alpha) 
(Someone is loved by everyone) 


These sentences are taken as isolated examples. Hence the use of the same Greek letter 
in all the examples rather than using new letters for each existential quantifier. 
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PROLOG SEMANTICS 
(continued from page 35) 


(Loves((delta x) x)) from ‘“‘someone 
loves everyone” (Loves(alpha x)). It 
might be argued that in effect it 
makes the inference because the que- 
ry “is everyone loved by someone?” 
could be said to take the form 
which(x: Loves(y x)). The answer will 
be x, and this could be taken as 
meaning ‘‘everyone is loved by some- 
one.” The y in the query is under- 
stood by PROLOG as being existential- 
ly quantified. 


Some Standard 
Quantificational Statements 
It is typical of human discourse to 
identify two classes of objects and 
claim some sort of relationship be- 
tween the the two classes. Those sen- 
tences that advance all-some or some- 
all relationships have particularly 
interesting logical properties and il- 
lustrate the use of Skolem functions. 
Consider the sentence ‘All passen- 
gers were questioned by customs of- 
ficers.”’ This statement identifies two 
classes of objects—passengers and 
customs officers—and asserts that 
each of the former was searched by 
at least one (not necessarily one and 
the same) of the latter. This differs 
from the statement “Some customs 
officers searched all of the passen- 
gers, but a relationship is still being 
asserted between two classes of ob- 
jects. Table 5, above, considers varia- 
tions of these ‘‘dual-class’’ sentences. 

The following is a well-known test 
problem for formulation into an in- 
ference system based on modus pon- 
ens and unification: 


The customs officials searched every- 
one who entered the country who 
was not a VIP. 

Some of the drug pushers entered 
this country and they were only 
searched by drug pushers. 

No drug pusher was a VIP. 


This problem is to be represented in 
such a way as to support the infer- 
ence that some of the officials were 
drug pushers. The representation in 
PROLOG is as follows: 


C((alpha x)) if E(x) and not_V(x) 


S((alpha x) x) if E(x) and not_V(x) 
D(beta) 
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Logic PROLOG 


S$( (alpha x) x)) if Pix) 
C((alpha x)) if P(x) 


(x)(Px -> (Ey)(Cy & Syx)) 
(Every passenger was searched 
by some customs officer) 


C(alpha) 
S(alphay) if P(y) 


(Ex)(Cx & (Y)(Py -> Sxy)) 
(Some customs officer searched 
every passenger) 


(Ex)(Px & (y)(Cy -> Syx)) 
(Some passenger was searched 
by every customs officer) 


P(alpha) 
S(yalpha) if C(y) 


S(* (alpha x)) if Clix) 
P( (alpha x)) if C(x) 


(x)(Cx -~> (Ey)(Py & Sxy)) 
(Every customs official 
searched a passenger) 


These are treated as isolated sentences, so alpha is used in all cases instead of using 
new Greek letters for each new existential quantifier. The PROLOG sentences are subject 
to the truth functional conversions indicated in the first section of this article (compound 
fact/consequent representation problems). 





Table 5: Representing relationships among classes of objects in PROLOG 
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PROLOG SEMANTICS 
(continued from page 37) 


E(beta) 
Dy) if Sly a 
not_V(x) if Dix 


To the query is(S((alpha beta) beta )), 
PROLOG answers yes, and to which(x: 
C(x) and D(x)), PROLOG responds (al- 
pha beta). 

With the use of Skolem functions, 
quantificational-level logic can be 
worked into the patois of PROLOG. 
But this is only first-order quantifica- 
tional logic without identity. Intro- 
ducing identity, whereby Sly) is in- 
ferred from S(x) and x = y, is another 
story in itself and requires second-or- 
der programming. 


Summary Remarks 

From a logical point of view, attempt- 
ing to make all deductions on the ba- 
sis of modus ponens and unification 
seems a needless and stultifying limi- 
tation on human reasoning capacity. 
Indeed, deduction engines that em- 
ploy a full complement of inference 
rules are legion in academe. But they 
suffer from several problems, not the 
least of which is speed or lack there- 
of. The killer problem is that of incor- 
porating recursion with deduction. 
PROLOG accomplishes this, and the in- 
corporation of recursion search 
methods within a deductive frame- 
work is really what makes PROLOG 
valuable and powerful. Its logical 
limitations are the price paid for this 
incorporation, but the trade-off is 
likely to seem a worthwhile one for 
some time. 


DDJ 
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“How to protect your software 


by 





. Inventor and 
entrepreneur, 
Dick Erett, 
explains his 
company’s 

1 ) view on the 
protection of intellectual 


property. 
A even sophisticated 
software develop- 

ment companies and the 

trade press seem to be miss- 

ing Or ignoring is this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are Clear. You can give 
product away to a segment 





crucial point that 
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Hard Disk Installation : Simply copy program: disk 
to hard disk using DOS Command - Copy A:*. ‘i 


the program diskette as you wish. 


Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directories containing 


program files. 







Bs 


Program Back-ups : You may make as many copies of 





Networks : This product may be 
works. Follow the same installation 
yage 102 of this manual. The Block 
with the normal operation of any 


Soon all software installation procedures will be as straightforward as this. 


letting people copy it?’ 


By Dick Erett, President of Software Security 
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The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


‘“... giving your software 
away Is fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 


We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


‘,..eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 





The BLOCK attaches to 
any Communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK is transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘*,.. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 
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QUIT DOING 





GRUNT WORK. 


Let Greenleaf do it for you 
and set you free. 


C Program developers, 

stop slaving! 

Greenleaf libraries have the 
functions you need — already 
perfected and in use by winning 
program developers in major 


corporations such as IBM, EDS 
and GM. 


Between our Greenleaf Functions 
and Greenleaf Comm Library, we 
have over 340 functions on the 
shelf. Each one can save you 
time and effort. Money, too. 


Many C programmers have told 
us that, even if they only use one 
or two functions, our products 
easily pay for themselves: 


The Greenleaf Functions 


The most complete and mature C 
language function library for the 
IBM PC, XT, AT and close 
compatibles. Our version 3.0 
includes over 225 functions — 
DOS, disk, video, color text and 
graphics, string, time/date, 
keyboard, new disk status and 
Ctr1-Break control functions plus 
many more! 


The Greenleaf Comm Library 


Our 2.0 version is the hottest 
communications facility of its 
kind. Over 120 all new functions 
— ring buffered, interrupt-driven 
asynchronous communications. 


Call Toll Free 


1-800-523-9830 


In Texas and Alaska, call 


214-446-8641 









GREENIEAI- 


Greenleaf Software, Inc. 


1411 LeMay Drive Suite 101 
Carrollton, TX 75007 
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If you need more than 2 ports, 
only Greenleaf gives you the total 
solution — boards, software, and 
complete instructions that enable 
you to build a 16-port 
communication system. 


And no matter how many ports 
you have, it’s virtually impossible 
to lose information with multiple 
file transfers. XMODEM, XON/ 
XOFF and Hayes modem 
controls are featured. 


We support all popular C 
compilers for MS DOS: Lattice, 
Microsoft, Computer 
Innovations, Wizard, Aztec, 
DeSmet and Mark Williams. 


Order today! 


Order a Greenleaf C library now. 
See your dealer or call 1-800- 
523-9830. Specify compiler 
when ordering. Add $8 for UPS 
second day air, or $5 for ground. 
Texas residents, add sales tax. 
Mastercard, VISA, P.O., check, 
COD. In stock, shipped next day. 


Greenleaf 


Comm Library v2.0 $185 
Greenleaf Functions v3.0 $185 
Digiboard Comm/4-II $315 
Digiboard Comm/8-II $515 


We also sell compilers, books and 
combination packages. 
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ultitasking is the ability to 
MM distribute the resources of 
a single CPU to several pro- 


cesses or tasks. This leads to better 
utilization of a CPU: while one pro- 
cess is stuck waiting for an event to 
occur before it can continue (a re- 
sponse from the user, for example), 
another process can continue run- 
ning. The CPU can thus perform 
more useful work with greater effi- 
ciency. To implement multitasking 
requires certain hardware and soft- 
ware resources. Although the IBM PC 
has the necessary hardware, MS- 
pos—the operating system of the 
masses—currently lacks any support 
for multitasking. A new DOS with the 
requisite features has been promised 
by IBM and Microsoft ‘‘real soon 
now.” 

Fortunately, you're not completely 
abandoned when it comes to soft- 
ware support. Some of the more re- 
cent computer languages such as 
Ada and Modula-2 inherently sup- 
port multitasking. Even earlier lan- 
guages such as Pascal and C have the 
necessary resources if you're willing 
to write a few routines. In this article 
I describe how to add multitasking to 
standard Turbo Pascal. Specifically, I 
illustrate how to add a cooperative, 
round-robin task scheduler (kernel) 
to any Turbo Pascal program using 
only a few short procedures. The ap- 
proach I take allows cookbook use of 
the multitasking routines—that is, 
you don't have to understand fully 
how the procedures work to use 


Craig A. Lindley, 6 Sutherland PI., 
Manitou Springs, CO 80829. Craig 
works for ROLM Corp. as a software 
engineer involved in real-time telepho- 
ny control. 
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Multitasking with 
Turbo Pascal 


by Craig A. Lindley 


How toadda 
round-robin 


task scheduler 


with a few 
short procedures 





them productively. Further, you 
won't need to write any assembly- 
language code; all the code can be 
written in high-level Pascal. 

After describing the basics of the 
implementation, I cover the data 
structures used for interprocess com- 
munication and synchronization, 
hardware interrupt servicing in the 
multitasking context, and finally an 
example that illustrates how they all 
fit together. Please note, the tech- 
niques presented in this article apply 
only to the MS-DOS implementation of 
Turbo Pascal. A CP/M or Macintosh 
version would require major 
modification. 

This multitasking kernel was de- 
veloped as part of the design of a PC- 
based serial protocol analyzer. The 
software allows asynchronous acqui- 
sition and display of serial data in 
two directions simultaneously. The 
serial protocol analyzer application 
illustrates both of the classical rea- 
sons for using multitasking because it 
provides a minimum response time 
to external stimuli (serial data) and a 
natural separation of largely unrelat- 
ed processes—that is, the acquisition 
of serial data and management of the 
computer display. 


Implementation 

Before delving into the details of the 
implementation, it’s necessary to un- 
derstand the properties of the multi- 





tasking kernel presented here. 

The kernel utilizes a cooperative as 
opposed to a preemptive task-switch- 
ing mechanism. That is, each task 
that runs voluntarily gives up control 
of the CPU so that other tasks can run. 
This is quite different from the time- 
slicing preemptive algorithm used in 
many multitasking schemes. (The 
term multitasking originally implied 
time slicing.) In the MS-DOS/Turbo 
Pascal environment, the use of coop- 
erative task switching is beneficial in 
two ways: first, it solves the reen- 
trancy problem inherent in MS-DOS, 
and second, it precludes saving the 
CPU registers during a task switch as 
Turbo Pascal does not expect CPU reg- 
isters to be preserved between pro- 
cedure invocations. 

This multitasking kernel uses a 
round-robin, equal-priority task 
scheduler. The scheduler moves 
from one task to the next ready task 
without regard for task priority. If a 
task is ready, it will run. Task priori- 
ty could easily be added to the ker- 
nel, but the application for which 
the kernel was designed did not re- 
quire it. 

Each task utilizes two data struc- 
tures for its operation. The first is the 
task control block, or TCB. Figure 1, 
page 43, shows the layout of a task 
control block. Example 1, page 43, 
shows the equivalent Turbo Pascal 
code. Bptr is a pointer into the stack 
segment of the BP register storage lo- 
cation in this task’s stack frame. Bptr 
is declared an integer instead of a 
pointer because the segment into 
which it points is already known to 
be the stack segment. Link is a point- 
er to the next TCB in a circularly 
linked list of TCBs. State indicates the 
current state of this task with: 
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0 = ready torun 
1 = waiting for a signal to run 
2 = running 


Id is an identifying number assigned 
to this task when it was created. It is 
currently used only in debugging of 
a multitasking application. 

All task control blocks are located 
in Turbo Pascal’s heap area. The sec- 
ond kernel data structure is the stack 
frame. As you might expect, the 
stack frame for each task is located in 
the 808x stack segment. The stack 
frame is the stack area for a single 
task. Each task has its own unique 
stack frame the size of which is de- 
termined when a task is first execut- 
ed. Many different types of informa- 
tion can be stored in a task’s stack 
frame including: 


e procedure return addresses 

¢ parameters passed to procedures 

¢ local variables 

¢CPU registers during the servicing 
of hardware interrupts 


Figure 2, right, shows how the data 
structures relate in a program that 
has three tasks competing for the use 
of the CPU. In this snapshot, task 1 is 
currently running. This is indicated 
by its state being set to 2 and the cur- 
rent pointer, or CP, pointing at its 
task control block. When and if task 1 
relinquishes control of the CPU, task 2 
will then begin running as it is the 
next ready task in the linked list. No- 
tice how the operation of this multi- 
tasking kernel spans all three of the 
808x CPU segments. 


Multitasking Kernel 
Routines 

Five Turbo Pascal procedures form 
the basis of the multitasking kernel. 
They are Fork, Yield, Wait, Send, and 
Pause. Each of these routines manip- 
ulates the structure shown in Figure 
2. The multitasking kernel’s code is 
shown in Listing One, page 52. 

Fork is used to create, or spawn, 
another task for the CPU to execute. It 
is modeled closely on the Unix proce- 
dure of the same name. Fork sets a 
global variable called child_process 
to indicate whether or not the fork 
operation was successful. This vari- 
able is used to modify program flow 
depending on the status of the fork 
operation. If child_process is re- 
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turned true, the fork was successful. 
It is important to realize that, when 
fork is successfully executed, control 
is not returned to the parent task but 
to the new task just forked—the 
child process. The parent task is sus- 
pended (the task state is set to ready) 
until given another chance to run. A 
look at Example 2, page 44, will help 
clarify the operation of the Fork 
procedure. 

On return from the Fork proce- 
dure, Newtask is started in an envi- 
ronment that is different from the 
environment of the main program. 
The structure of all tasks is the same, 
as is discussed later. When Newtask 
gives up control of the processor via 
a yield or wait, you revert to the 
main program's environment via a 


tchper = ~ teb 


tcb = RECORD 
Bptr: integer; 
Link: tebptr; 
State: byte; 
id: byte; 
End; 


{Bptr storage} 
{Link storage} 


{Task Id} 


{Current state} 


task switch and reexecute the condi- 
tional statement shown above. This 
time, however, the child_process 
variable will be false (reset by the 
Newtask code), so the invocation of 


Figure 1: Task control block 


{a pointer to a TCB} 





Example 1: Equivalent Turbo Pascal code for Figure 1 


Current Pointer (cp) 


Task 0 
Stack Frame 


Task 1 
Stack Frame 





Figure 2: Program snapshot 


Task 2 


Stack Frame 


Code 
Segment 


43 


TURBO PASCAL MULTITASKING newly forked Newtask routine is qui- 
(continued from page 43) escent. If the main program yielded, 
po | owever, it executien would pause 
task 1 is skipped and the execution of | while Newtask continued to run. In 
the main program code continues. this multitasking kernel you can fork 

The processor can execute only | as many tasks as the stack segment 
one program at a time, so while the | has stack space available for and the 
main program code is executing, the | data segment has TCB space available 


.the main program code is running here 


Fork; {fork a new task} 
If child process = true then {if fork was successful} 
Newtask; {start new task running} 





Example 2: Fork procedure, which manipulates structure in Figure 2 
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for. 

To help you understand the ker- 
nel’s operation, here is a detailed 
breakdown of Fork's operation: 


1. It checks to see if there is enough 
stack space available for a new task. 
The size of the allocated stack is de- 
termined by the global variable Task- 
_stack_size, which can be changed 
between calls to Fork if the stack re- 
quirements change. Always allocate 
more stack area than you think 
you'll need because, if a task crosses 
its stack boundary, your program 
will crash and burn. It is advisable to 
allocate at least 128 bytes of stack 
more than your program will re- 
quire to allow for MS-DOS calls and 
hardware interrupts. 

2. It saves the Bptr of the currrently 
executing task in the current TCB so 
that it can be restored when this task 
runs again. 

3. It calls the Pascal procedure New to 
allocate space for the new task’s TCB 
in Turbo Pascal’s heap. 

4. It links the new TCB into the linked 
list of TCBs. 

5. It sets the state of the new task’s 
TCB to running as it will be upon re- 
turn from Fork. 

6. It points CP at this new TCB. 

7. It gets the next task’s ID number 
and stores it in the new TCB. 

8. A portion of the old task’s stack 
contents are then copied into the 
new stack frame. This allows return 
from Fork into the new task’s 
environment. 

9. It updates the variable frame_ptr 
to reflect the hunk of stack area just 
allocated to this new task. 

10. It sets the child_process variable 
to true. 


When all these operations have been 
completed, the return from Fork 
starts the new task running in its 
own, newly created environment. 
Yield is used by the current task to 
give up control of the CPU voluntarily 
to the next ready task. If only a single 
task is running, Yield cannot do any- 
thing except output an error message 
and halt because a programming er- 
ror has been made. When a task that 
has yielded runs again, it will contin- 
ue its execution at the Pascal state- 
ment following the yield. It is very 
important for a task to yield periodi- 
cally because otherwise it will gain 
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control of the CPU and might never 
relinquish it. Under these conditions 
none of the other tasks would be giv- 
en any time to run. Yield statements 
should be placed liberally in a task’s 
code, especially in loops that might 
take quite a while to complete. 

The format of all tasks should re- 
semble that shown in Example 3, 
right. 

In other words, every task should 
be in the form of an infinite loop 
that never returns to the main pro- 
gram but that does yield to the other 
tasks. 

The actions performed when Yield 
is executed are: 


1. The Bptr into the current task’s 
stack frame is saved in the current 
task’s TCB. 

2. The state in the TCB is changed 
from running to ready. 

3. The linked list of TCBs is traversed 
until the next ready task is located. 
CP is then made to point at this new 
TCB. 

4. The Bptr for the task to run is re- 
trieved from its TCB and stored in the 
808x processor's BP register, as re- 
quired by Turbo Pascal. When re- 
turn from Yield is performed, the en- 
vironment is changed to that of the 
next task and execution continues 
from where that task previously 
yielded. It is quite possible, for exam- 
ple, for task 3 to yield and for task 15 
to begin execution if task 15 is the 
next ready task in the linked list. 


Wait is used by a task to voluntarily 
suspend its execution indefinitely 
until some external stimulus is ap- 
plied. The external stimulus is a Send 
operation, which I describe next. 
Note that a waiting task does not con- 
sume any CPU time—it is not polling 
for the external stimulus to be ap- 
plied (which would require CPU 
time) but is completely dormant. As 
far as the CPU is concerned, a waiting 
task is nonexistent. 

The code and therefore the opera- 
tion of Wait is similar to that of Yield. 
The differences are: 


1. The state of the current task is 
changed from running to waiting in- 
stead of to ready. 

2. Wait requires a parameter to indi- 
cate what stimulus the task is to wait 
for. The parameter is a pointer to a 
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task control block pointer (tcbptr), 
which is stored in the variable wait- 
for. Waitfor must be initialized be- 
fore the Wait procedure call is 
executed. 


Procedure Newtask; 
Var 

any required local variables 
Begin 

child process := false; 


Repeat 
New task code goes here 
Yield; 

Until False; 

End 


Example 3: Task format 


Send is used to wake up a waiting 


task. It changes the state of the task 
being signaled from waiting to ready 
so that it will run the next time the 
processor gets to it. 


{resets the global variable} 
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Does your programming language 





present you with annoying ‘dead ends?” 


It may be time to discover the 
power of Revelation. 


When sophisticated program- 
mers first tried database program- 
ming languages they said “Too 
wimpy!” Now they’re discovering 
Revelation’s R/ BASIC. Yes! It’s a 
Revelation! 


Let's start by examining R/BASIC 
philosophically. 


First, it’s a structured lan- 
guage, interfacing smoothly with 
DOS as well as C and Assembler. 
You'll find commands for struc- 
tural coding like CASE, LOOP/ 
REPEAT with WHILE/UNTIL, 
IF/THEN/ELSE and other famil- 
lar friends here. And, like all seri- 
ous programming languages, it 
has a compiler for fast program 
execution. A compiler so fast that 
it can translate 20 lines per second 
for speedy error detection and 
correction. 


You should expect excellent 
string handling in a database 
programming language, but math 
is another story. Or is it? 


Because R/BASIC was 
developed as a database program- 
ming language, naturally you 
expect it to have powerful string 
handling capabilities. It does. 
Revelation’s R/ BASIC supports 
both dimensioned arrays and 
dynamic arrays. Individual strings 
can be up to 64K in length. But, 
what you might not expect in a 
database programming language 
is a high level of math support. 
Revelation has it. 

R/BASIC offers integral 8087 
support for maximum precision. It 
automatically accesses the 8087 
chip for calculations. And, if you 
don’t have an 8087 chip, R/ BASIC 


incorporates an excellent 8087 
emulator. Trig functions? Of 
course. 


Subroutine flexibility. 


Revelation lets you declare 
your own internal or external sub- 
routines with argument passing. 
Subroutines can be developed in 
C and Assembler, then called 
directly from an application. And 
with Revelation’s recursive routine 
calling, you won’t have to write as 
much code. 

How much less code? 

A long COBOL program typ- 
ically runs 20,000 lines. A long 
R/BASIC program typically runs 
300 lines. Imagine how much of 
your development time that kind 
of difference can save. 

R/BASIC will also help you 
produce a clean program fast. Its 
completely interactive symbolic 
debugger traces problems in min- 
utes instead of hours. 


Here’s another way you can save 
time with R/BASIC. 


By incorporating LOCK and 
UNLOCK statements in your pro- 
grams you can change from single 
to multi-user systems without 
making program modifications or 
recompiling. 


Is it time for your personal 
Revelation? 


Once you get used to some- 
thing, it’s difficult to change. But if 
change means progress, it’s worth 
the effort. R/BASIC is a powerful 
programming language that offers 
significant built-in database advan- 
tages over a “pure” programming 
language. These advantages 
can save time during program 
development and time when the 
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application runs. For the serious 
programmer, time is money. It’s 
worth your time to take a look at 
Revelation. 


The basics of R/BASIC. 


e Compiler. 

e Internal and external subrou- 
tine calling with argument 
passing. 

e Recursive routine calling. 

e Integral 8087 support for 
maximum precision. 

e Support for structured 
programming. 

e No data typing. 

e English variable names. 

e User-defined functions. 

e Full screen editor. 

e Support for ASM and C 
routines. 

e Sophisticated string handling 
includes dynamic array sup- 
port with a 64K limit. 

e Trig functions. 

e Alternate syntaxes. 

e Direct DOS interface. 

e Completely interactive 
debugger. 


If you would like to sample 
the power of Revelation, please 
send $24.95 for our comprehen- 
sive Demo/ Tutorial. A phone call 
gets you complete information. 


COSMOS 


Cosmos, Inc. 

3633 136th Place S.E. 

Bellevue, WA 98006, USA 
Phone (206) 643-9898 

Telex: 185210 (COSMOS MUT) 
FAX: (206) 643-7609 


TURBO PASCAL MULTITASKING 
(continued from page 45) 


Pause is used to suspend a task’s ex- 
ecution for a specified number of 
one-quarter-second intervals, or 
ticks. The tick count is a signed inte- 
ger value with a maximum count of 
32,767, representing a maximum de- 
lay of approximately 2.5 hours. This 
implementation of Pause is crude but 
effective. It relies on the fact that all 
tasks yield periodically, so Pause can 
check to see if the tick count has been 
satisfied and therefore whether the 
paused task is to be made ready to 
run. 


Intertask Communication 
and Synchronization 

Because of the asynchronous nature 
of tasks running in the multitasking 
environment, data sharing requires 
special considerations. Two of the 
more important problems that must 
be overcome to allow a multitasking 
system to be viable are: 


1. Data passed back and forth be- 
tween tasks must be absorbed and 
buffered. This is necessary to equal- 
ize the different rates at which tasks 
produce and consume data. 

2. Important data areas or system re- 
sources must be protected from use 
by more than one task at a time. 


The classical method used to solve 
the first problem is with a data struc- 
ture known as the first in, first out 
(FIFO) list, or queue. The second prob- 
lem can be solved using a data struc- 
ture called a semaphore. Both of 
these structures, along with the ap- 
propriate support routines, are im- 
plemented in this kernel. 


FIFOs 
The implementation of FIFOs in this 
multitasking kernel is very general- 
ized. By this I mean that the same 
general techniques can be used to 
maintain a queue without regard for 
the type of data stored. A simple FIFO 
using bytes is shown in the example 
program of Listing One. FIFOs for 
storage of other types of data—in- 
cluding real numbers, strings, or re- 
cords—could just as easily be imple- 
mented using the general techniques 
presented here. 

In the example program, a byte 
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FIFO is used to buffer intertask data. 
To use the generalized FIFO routines, 
you must perform the following 
steps: 


1. Generate a record structure de- 
scribing the type of data you want to 
store in the FIFO. The structure for 
the byte FIFO is: 


bytefifo = RECORD 
ovd: overhead; {another record 
used to} 
{manage the fifo 
data} 
data: ARRAY(1 . . bytefifosize] OF 
BYTE; 
End; 


It is important to use the same over- 
head record regardless of the type of 
data stored in the data array. This al- 
lows the same generalized tech- 
niques to be used to manage the 
queue. 

2. Declare an instance of the FIFO: 


inbuffer: bytefifo; 


3. Initialize the FIFO overhead data 
structure as follows: 


Initialize_fifolinbuffer.ovd); 


This sets the fields in the overhead 
record to indicate an empty FIFO. 
The fields as initialized are shown in 
Table 1, right. 

4. The final step is to write routines 
similiar to put_byte and get—_byte, 
which can store/retrieve items of 
data from the FIFO. 


Notice the use of the kernel wait 
and signal routines in the get_byte 
and put_byte procedures. Putting the 
Not_empty and Not_full signals into 
the overhead record for all FIFOs 
makes use of the FIFO routines ex- 
tremely convenient in this multitask- 
ing environment. If, for example, 
your program calls put_byte to store 
a byte of data in the inbuffer FIFO and 
inbuffer is currently full, your task 
will automatically be put to sleep un- 
til a byte is removed from inbuffer. 
As soon as there is room in inbuffer, 
put_Byte will store the byte in in- 
buffer and return to your program. 
Conversely, if a task is waiting for 
data to be placed in inbuffer, it will 
automatically awaken as soon as put- 


_byte places data into the previously 
empty FIFO. 


Semaphores 
Semaphores are generally used as a 
tool for synchronization in a multi- 
tasking environment. They can be 
used to initiate a synchronized action 
or to provide mutual exclusion for a 
system resource. Three routines are 
provided in the kernel for use with 
semaphores: Initialize_semaphore, 
which initializes the semaphore data 
structure; Alloc, which is used to 
claim a resource for a task’s private 
use; and Dealloc, which releases a re- 
source from a task’s control. Many 
other semaphore manipulation pro- 
cedures are possible but have yet to 
be required in my serial protocol an- 
alyzer application. 

Semaphore usage requires the fol- 
lowing steps: first, an instance of a 
semaphore must be declared: 


printer_lock: semaphore; 


and second, the semaphore must be 
initialized: 


Initialize_semaphore(printer_lock); 


As an example of how the sema- 
phore procedures Alloc and Dealloc 
could be used, consider the use of a 
printer in a multitasking environ- 
ment. Suppose many tasks needed to 
produce printed output on a printer. 
If some form of printer control were 
not imposed on which tasks have ac- 
cess to the printer, the resulting 
printed output could become a jum- 
bled mess of intermingled charac- 


(number of items in the’ 
FIFO is 0) 
(array index of where 
items placed in the 
FIFO will be stored) 
(array index of where 
items removed from 
the FIFO will be 
obtained) 
= Nil (specialized field, dis- 
cussed later) 
= Nil (specialized field, dis- 
cussed later) 


Outptr 


Not_empty 


Not_full 





Table 1: Fields in overhead register 
as initialized 
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ters. To prevent this, you could de- 
clare a semaphore (printer_lock, for 
example) for use with the Alloc and 
Dealloc procedures. Each task that re- 
quired access to the printer would 
first Alloc the printer semaphore 
before attempting to print and 
would Dealloc the printer when fin- 
ished. This would prevent the inter- 
mixing of printed output as each task 
would have exclusive access to the 
printer as long as necessary to com- 
plete its output. Another task await- 
ing the use of the printer would be 
put to sleep until the printer was 
available. 

The same techniques used to con- 
trol access to a system device such as 
a printer can also be used to control 
access to shared memory areas and 
system data structures. By using Al- 
loc and Dealloc in code that modifies 
an important data structure, you can 
be assured the complete structure 
will be modified (even though the 
task doing the modification repeat- 
edly yields) before access is granted 
to another task. 


Interrupt Processing 

Any real-time multitasking system 
must, by its very nature, provide a 
close coupling between real-time in- 
terrupts and the execution of tasks. 
Interrupts, like tasks, are another 
method for dealing with the asyn- 
chronous nature of real-world 
events. Whatever the source of the 
interrupt, there should be a uniform, 
well-defined method for handling it 
in a multitasking environment, and 
the method chosen should hopefully 
be transparent to the programmer. 

In keeping with this philosophy, 
interrupt handling within the multi- 
tasking environment presented here 
is performed in Turbo Pascal instead 
of in assembly language. This is 
made possible by the use of two 
small in-line code procedures that 
must bracket the procedure call to 
your Turbo Pascal interrupt service 
routine. The first in-line routine, 
called the interrupt service routine 
preamble, contains the 808x code 
shown in Example 4, above. 

The function of this code is to save 
all the registers used by Turbo Pascal 
in servicing your interrupt, to estab- 
lish access to the data area used by 
your program, and finally to reena- 
ble the interrupts. 
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Turbodseg must be initialized with 
the data segment value used by Tur- 
bo Pascal for storing the data created 
in your program. This value is re- 
quired by the interrupt service rou- 
tine to locate and have access to all 
the data in your program. Turbodseg 
is actually a typed constant rather 


than a variable. I used a typed con- 
stant because it is stored in the code 
segment instead of the data segment 
portion of memory. If a variable 
were used, it would be stored in the 
very area of memory—the data seg- 
ment—you are trying to locate. Stor- 
ing Turbodseg in the code segment 


Push AX, BX,CX,DX,DI,SI,ES,DS {save all regs modified by} 
{the interrupt routine} 


mov AX,CS:turbodseg 


mov DS,AX 
Sti 


{get the segment that contains} 
{turbo's data. Make it the dseg} 
{turn interrupts back on} 





Example 4: Preamble to interrupt service 





ENHANCED VERSION 
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Expand your programming capa- 
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* Full C+ + source level debug- 
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TURBO PASCAL MULTITASKING 
(continued from page 49) 


allows it to be accessed when an in- 
terrupt occurs because the interrupt 
procedure is contained in the same 
code segment as the rest of your pro- 
gram. Once an interrupt occurs, the 
value stored in Turbodseg is moved 
into the processor’s DS register, al- 
lowing your interrupt service rou- 
tine access to all your program's data. 

After the preamble code has run, 
control is passed to your interrupt 
service routine. Your code can per- 
form any function you desire as long 
as you keep a few facts in mind. First, 
the processor registers and flags 
have been saved onto the stack of an 
interrupted task, so be sure you don't 
nest procedures or create local data 
to such an extent that the stack over- 
flows. Second, do not use any DOS 
functions (for example, int 21h) as 
they are not reentrant; on the other 
hand, you can use BIOS functions. 

It is a good programming practice 
to keep interrupt routines as small as 
is practical. This rule is especially 
true in the context of multitasking. If 
large amounts of processing need to 
be performed, it might be wiser to 
signal a waiting task to do the re- 
quired work. How interrupt service 
routines are written, however, is 
largely mandated by the type of pro- 
cessing that must be accomplished. 

After your Turbo Pascal interrupt 
service routine terminates, the inter- 
rupt postamble code must execute. It 
performs the inverse function of the 
preamble routine by restoring all the 
processor registers to their pre-inter- 
rupt state and then doing all the mis- 
cellaneous housecleaning necessary 
to clean up after the interrupt code. 
The postamble routine code is shown 
in Example 5, below. 

The structure of your interrupt 
service routine should then be simi- 
lar to the following: 


Procedure 


your_interrupt_service_routine; 


Begin 
preamble code; 
interrupt_service_routine; 
postamble code; 

End; 


It is very important that the inter- 
rupt service routine (your_interrupt 
Service_routine in the structure 


The kernel 
can be used 
in a cookbook 
Sashion 
in which all code 
can be written 
in high level 
Turbo Pascal. 


shown above) does not allocate any 
local data. This is necessary because 
the preamble and postamble rou- 
tines are not smart enough to man- 
age the stack correctly when locals 
are present. The actual interrupt 
procedure (interrupt—_service_rou- 
tine) can use as much local and 
global data as it requires. 

After you have written your inter- 
rupt service routine, you must install 
it in the PC environment before you 
can execute it. Two methods exist for 
installing an interrupt routine: you 
can either store the address offset 
and code segment values for the rou- 
tine in the processor’s interrupt table 
directly, or you can call MS-DOS to do 
the installation for you. The second 
method is perferred, and you should 
use it whenever you install interrupt 
service routines. The example pro- 
gram shown in Listing One shows an 
interrupt-driven serial input routine 


{interrupts off for a second} 


DS, ES, SI, DI, DX, CX, BX, AX 


BP _ 
BP | | - {restore the Bp register} 
{return from interrupt} 


{restore the registers} 
{throw away the Sp value} 





Example 5: Postamble to interrupt service 
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written in Turbo Pascal along with 
the MS-DOS code necessary to install 
it. 


The Example Program 
I have used a dumb terminal pro- 
gram throughout this article to illus- 
trate some of the multitasking ker- 
nel’s features. The complete 
program is shown in Listing Two, 
page 62. Listing Three, page 70, in- 
cludes all the RS-232 support routines 
necessary to compile and run the ex- 
ample program. 

The example program illustrates 
the following concepts: 


¢ creation of four concurrent tasks 
ethe use of FIFOs to pass data be- 
tween tasks 

* processing of serial interrupts in 
Turbo Pascal 


This program can be used as a tem- 
plate for the generation of your mul- 
titasking programs. 


Conclusions 

In this article I’ve presented a multi- 
tasking kernel for use with MS-DOS 
and Turbo Pascal. Included are many 
functions useful either for a real- 
time control application or just for 
experimenting with the concepts 
presented. From a programmer's 
perspective, the kernel can be used 
in a cookbook fashion in which all 
code (for both the tasks and the inter- 
rupt service routines) can be written 
entirely in high-level Turbo Pascal. 
Feel free to incorporate these con- 
cepts and code in your own pro- 
grams. I'd appreciate hearing from 
you if you come up with any novel 
uses or extensions for the kernel. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063, or call (415) 366-3600, ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, Kay- 
pro). 

DDJ 
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mation). And modifying our functions or writing your own C-scape with Dan Bricklin’s Demo Program $259 
is easy. C-scape adjusts automatically for CGA, EGA, AN 

monochrome, and the Hercules Graphics Card Plus in WE C-scape with DB Demo and db__VISTA (RAIMA) $425 
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Supports graphics, interrupt driven com- 
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subroutine is included which will plot data 
on the screen either in linear/linear, log/ 
linear, linear/log, or log/log on the appro- 
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line usage, DOS call capabilities, SHELL 
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file control, music generation, PEEKS and 
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$89.95 


Gives the Fortran programmer the capa- 
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displays are supported. Full source code is 
supplied for customization. 


ACS Time Series 
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This is a COMPLETE time series analysis 
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SPEED FFTs, Filter generations, convo- 
lutions, transfer function calculations, auto 
and cross spectra calculations, Cepstrum, 
curve fitting algorithims, coherence calcu- 
lations, and many other associated routines. 
The price includes FULL source code. 


Fortran Scientific 
Subroutine Package 
$295.00 


There are approximately 100 Fortran sub- 
routines included which fall under the 
following 12 categories: 

1) Matrix storage and Operations 2) 
Correlation and Regression, 3) Design 
Analysis (ANOVA), 4) Descriminant Anal- 
ysis, 5) Factor Analysis, 6) Eigen Analysis, 7) 
Time Series, 8) Nonparametric Statistics, 9) 
Distribution Functions, 10) Linear Analysis, 
11) Polynomial Solutions, 12) Data 
Screening. Full source code is included. 
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Listing One (Text begins on page 42.) 






{$K-} {Compiler switch - never change} 
{ FHHHAKAAAEAERHEKKKKKEREKEREREREREREKREREREREREREEEEKE | 
{ase Listing One ees} 
prs Turbo Pascal bali! 
{nen Multitasking Kernel weet 
ia*? written by Pan 
ino Craig A. Lindley ae) 
{*** wan} 
{*** Vers. ts3 Last update: 03/11/87 ake} 
{*** oy 


[RRR ARK RK ERK KIRKE K KKK KERR RE RRR ERE RRR REK KAR KKRE | 
CONST 


task_stack_size = 256; {stack size for each} 
{task} 

turbodseg: integer = 0; {storage for turbos} 
{data segment value} 


TYPE 


{possible states for a task} 
task state = (ready,waiting, running); 


{808X register set} 
register type = RECORD 
CASE integer OF 
1: (ax,bx,cx,dx,bp,si,di,ds,es, flags:integer) ; 
2: (al,ah,bl,bh,cl,ch,dl,dh sbyte) ; 
END; 


{Task control block (tcb) structure} 


Cebptr: =: 2 -teb> {ptr to tcb} 

tcb = RECORD 
Tasik e COR re {link to next tcb in dseg} 
bptr: integer; {base ptr offset in sseg} 
state: task state; {ready, waiting, running} 
ids byte; {task number} 

END; 

waitptr = “tcbptr; {ptr to ptr to tcb} 

{used for passing parms} 

{to wait} 


{This fifo overhead structure is the same for} 
{all fifo types regardless of the items to be} 
{stored in the fifo. The byte fifo is an example} 
{of just one possible type of fifo.} 

overhead = RECORD {fifo overhead data} 
{structure} 


count, {# of items in fifo} 

inptr, {ptr to where items are} 
{stored} 

outptr: integer; {ptr to where items are} 
{ fetched} 

not_empty, {ptrs to waiting tasks} 

not_ full: tcbptr; 

END; 


bytefifo = RECORD {definition of a byte fifo} 


ovd: overhead; {fifo overhead} 
data: ARRAY[1..bytefifosize] 
OF byte; {byte fifo data area} 
END; 


semaphore = RECORD 
count: integer; 
signal: tcbptr; 


{Semaphore data type} 
{number of times signaled} 
{pointer to waiting task} 


{if there is one} 
END; 


(continued on page 54) 


Dr. Dobb’s Journal, July 1987 





The Software Family 


649 Mission Street 
San Francisco, CA 94105 


(1)800-443-7176 
In California or outside U.S. 
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16 modems on one card 


We sell hardware and software for the 
IBM PC family and compatibles. Our 
product line is centered around the 
GALACTICOMM BREAKTHROUGH, a 
single-slot card with 16 independent 
modems on it. You will simply have a cable 
coming out the back of your machine, 
going straight into the jacks in the wall 
installed by the telephone company. No 
external hardware needed. 
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Call our multi-user demo system with your 
modem, at (305) 922-3901. Then call (305) 
472-9560, voice, for more information. 
Why not call right now? 


) GALACTICOMM 


GALACTICOMM, Inc., 11360 Tara Drive, Plantation, FL 33325 
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cD; {current task pointer} 

new _tcb ptr, {ptr to new tcb in dseg} 

temp ptr: tcbptr; 

waitfor: waitptr; {address of item to} 
{wait on} 

Stk, bp: integer; {variables for setting} 


{808X sp and bp} 
frame ptr: integer; {stack frame pointer} 
next_id: integer; {next task id number} 
is integer; 
child process: boolean; {fork successful flag} 


{twenenee Bagin Multitasking. Procedures .********) 


PROCEDURE Fork; {fork off a new task} 
{This procedure manipulates Turbo Pascal's stack} 
{frame as required to fool it into operating in} 
{a new task's environment. } 


BEGIN 
child process:=false; {indicate the parent} 
{process until proven} 


{otherwise} 
{check if enough stack space for a new task} 


IF abs (frame ptr - task_stack_size) > 0 THEN 
BEGIN {if enough} 

INLINE ($89/$26/stk); {get 808X Sp to} 
{calculate Bp pointer} 
{save Bp ptr in this} 
{ frame} 

{allociate new tcb} 


cp*.bptr:=stk+2; 
new (new _tcb ptr); 


{link new tcb into scheduler loop} 
{make its state running and give it an id} 


new _tcb ptr*.link:=cp*.1link; 
cp*.link:=new_tcb ptr; 
new_tcb ptr*.state:=running; 
next_id:=next_id+1; 
new_tcb ptr*.id:=next_id; 
cp*.state:=ready; {old frame is ready} 
{copy old stack to new stack frame} 
FOR 1:=0 TO 5 DO 

mem[sseg:frame ptr-6+i]:=mem[sseg:stk+i]; 


{make Bp storage in stack frame point at} 
{this frame} 


memw[(sseg:frame_ptr-4]:=frame ptr; 
bp:=frame_ptr-4; {calculate Bp pointer} 
INLINE ($8B/$2E/bp); {set 808X Bp reg to} 
{this new value} 


{reserve stack frame space} 

frame_ptr:=frame_ptr-task_stack_size; 

cp:=new_tcb ptr; {cp points at new task} 

child process:=true; {indicate child process} 
END; 


END; 


PROCEDURE Yield; 


{This procedure cause the executing task to} 
{relinquish control of the CPU to the next ready} 
{task. } 
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eee 


child_process:=false; {reset variable} 

IF cp*.link <> cp THEN {must have more than} 
{one task forked to be} 
{able to yield} 


BEGIN “Product of the Month" 
INLINE ($89/$26/stk); {get 808X sp} |“... a technological tour de 
cp* .bptr:=stk+2; {save Bp ptr in} ae cael 

aa ite dene eal | 4 force for fast PC graphics. 
cp*.state:=ready; {yielded task ready} ee es 
temp ptr:=cp; Se NO ROYALTIES! 


{look for next ready task in scheduler loop} 
{there must be at least one or else} 


WHILE (temp ptr*.link*.state <> ready) DO 
temp ptr:=temp ptr*.link; 


cp:=temp ptr“*.link; {cp points at new task} 
cp*.state:=running; {indicate running} 


bp:=cp* .bptr; {get the bp of task} 
INLINE ($8B/$2E/bp) ; {restore it to 808X bp} 
END ed set of graphic drawing functions, 
a | plus the added functionality and 
writeln('Cannot yield only single task running'); performance required for designing 
halt; multi-window desktop applications. 
END; , 
END: : | * auto-cursor tracking 


4 ¢ pull-down menus 
* pop-up windows 
PROCEDURE Wait; {put current task in wait mode} 
{until a send makes it ready} | ° comprehensive 


: graphic functions 
{Due to constraints of this kernel, parameters} ne 
{cannot be passed directly to the wait procedure. } ¢ multiple fonts aS Fai, te Foie 
{To overcome this limitation, a global variable} cl 
{called waitfor is used. The address of the} 
{tcbptr on which to wait should be stored in} 
{waitfor. See the fifo routines for an example of} 
{the proper usage of Wait.} 





¢ Display multiple bitmap or 
"filled-outline" fonts. 

BEGIN * Face fonts for bold, italic, under- 

line or strike-out stylings. 


child _process:=false; {reset variable} ¢ Full "RasterOp" transfer 
IF cp*.link <> cp THEN {must have more than} functions for writing erasing 
{one task forked to be} : ee 
{able to wait} rubberbanding or dragging. 
BEGIN lines, text, icons, bit images 
waitfor* := cp; {waitfor points at the} and complex objects. 
peareres canes * Create pop-up menus, 
INLINE ($89/$26/stk); {get 808X sp} windows and icons. 
cp* .bptr:=stk+2; {save it in current} ¢ Supports IBM's new PS/2 VGA 


{task frame} 
cp*.state:=waiting; {task now waiting} 
temp ptr:=cp; 


and MCGA graphics. 


{look for next ready task in scheduler loop} 
{there must be at least one or else} 


WHILE (temp ptr*.link*.state <> ready) DO 
temp ptr:=temp ptr*.link; 


cp:=temp ptr*.link; {cp points at new task} 
cp*.state:=running; {indicate running} 
bp:=cp* .bptr; {get bp for this task} 
INLINE ($8B/$2E/bp); {restore it to 808X bp} 

END 

ELSE 

BEGIN 
writeln('Cannot wait only single task running'); 
halt; 

END; 


END; 


(continued on page 57) 
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Turbo Tech Report 
neaks Your Language. 











The newsletter/disk publication for Turbo Pascal® users 


Are you a devoted Turbo Pascal programmer, 
tired of reading about other languages? Are you 
looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or 
incorporate into your programs? Are you 
interested in improving and expanding your 
Turbo Pascal programming skills? 

Then you deserve a subscription to Turbo Tech 
Report. the bimonthly newsletter/disk publication 
from the publishers of Dr. Dobb's Journal and 
Micro/Systems Journal. Each issue delivers more 
than 250K of Turbo Pascal source code programs 
on disk, and 20+ pages of articles, Turbo Pascal 
software and book reviews, and analysis and 
commentary. It’s the only publication delivering 
such focused technical articles with code on 
disk—and it doesn’t waste your time with 
information about other programming 
languages. Each valuable issue contains: 

¢ Articles on topics like speedy 3D graphics, 
mathematical expression parsers, creating global 
gotos, memory resident and Al applications and 
more—all written by Turbo experts. 

e Reviews of the latest Turbo Pascal software 
programs from companies like Borland 


International, Blaise Computing, Media 
Cybernetics, Nostradamus, TurboPower Software, 
and more! 

e News and commentary detailing the 
latest products and developments in the Turbo 
Pascal programming community. 

¢ A disk filled with Turbo Pascal code! 
You'll get the Turbo Pascal utilities and routines 
discussed in the newsletter’s articles, as well as 
applications developed by Turbo users from 
around the world. You'll receive programs that 
make labels, generate menus, provide faster 
screen access, transfer files between CP/M and 
MS-DOS computers, and more! 

If you’re an expert Turbo Pascal programmer 
or a novice interested in expanding your Turbo 
skills, you need a publication that speaks your 
language: Turbo Tech Report. Subscribe today at 
the special price of just $99—that’s 33% off the 
regular price of $150. To order by credit card, 
call toll-free 1-800-528-6050 ext. 4001 and ask 
for item 300. Or mail the attached coupon with 
your payment to Turbo Tech Report, 501 
Galveston Drive, Redwood City, CA 94063. 


Turbo Pascal is a trademark of Borland International Inc. 
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TURBO PASCAL MULTITASKING 


Listing One (Listing continued, text begins on page 42.) 


PROCEDURE Send(VAR s:tcbptr); 


{Make the specified task ready for next scheduler} 


{go around} 
BEGIN 


s*.state:=ready; 
S:=NIL; 


{task state is ready} 
{clear pointer} 


END; 


PROCEDURE Pause (t:integer); 
{Pause the execution of a task for t 1/4 sec} 
{intervals. Note even t results in more} 
{accurate timmings.} 
FUNCTION tic _count : integer; 
{Get the current tic count from the Bios} 
VAR 

regs: register type; 
BEGIN 

regs.ax:=0; 


intr ($1A, regs) ; 
tic_count:=regs.dx; {LSB of count in dx} 


{request clock tic read} 


END; 


VAR 


tics,i: integer; 


BEGIN 
tics:=0; {initial tic count to 0} 
IF t > O THEN {if a legal tic count} 
BEGIN 


FOR i:=1 TO t DO {250 msec = 4.55 tics} 
IF odd(i) THEN {use this algorithm for} 
{approximation} 
tics:=tics+4 {250 msec = 4.5 tics} 
ELSE 
tics:=ticst5; 


{add tics to current tic count to get} 
tics:=tics+tic count; {target time} 


REPEAT 
yield; {return when tic count is} 

{reached or exceeded} 
UNTIL tics <= tic count; 

END 

ELSE 


writeln('Bad tic count specified'); 


END; 


PROCEDURE Init Kernel; 


{This procedure initializes the multitasking} 
{for use. It sets up the TCB for task 0 and} 
{indicates that it is running.} 


Begin 


turbodseg:=dseg; 
frame ptr:= $FFFE; 
next_id:=0; 

new (new tcb ptr); 


{save turbo data segment} 
{initial stack location} 
{first task id} 

{get new tcb in dseg} 
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Read what they’re saying about this 
popular program for prototyping and 
demo-making: 


“A winner right out of the start- 
ing gate. After you use DEMO 
once, you’ll wonder how you got 
along without it.”’ 

—PC Magazine 


“‘Everybody who writes soft- 
ware, either commercially or for 
in-house applications, should 
immediately order a copy. Period. 
No exceptions.” 

— Soft - letter 


Product of the Month 
—PC Tech Journal 


Thousands of developers and most 

of the largest and best known software 
companies are using this program. 
You can, too. Act now! 


The perfect companion to the Demo 
Program. The Tutorial helps you learn 
the ins and outs of its basic and ad- 
vanced features. Complete with a 96 
page manual containing step-by-step 
instructions, diskette, and function 
key template. 





Use 800-number for orders only. 
Questions, special shipping, etc., call 617-332-2240. 


No Purchase Orders. Massachusetts residents add 5% 
sales tax. Outside of the U.S.A., add $15.00. 

Requires 256K IBM PC/Compatible, DOS 2.0 or later. 
Supports Monochrome, Color Graphics, and EGA 
Adapters (text mode only). The Tutorial requires the 
Demo Program. 





SOFTWARE 
GARDEN, INC. 


Dept. D 


P.O. Box 373, Newton Highlands, MA 02161 
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PC-DOS program 
lets your PC 

Read/Write/Format 

over 300formats 


XENGCHRPaPg 


ty Fred Cisin 


$79.95 + $5.00 S/H Sales Tax if CA. 





Upgrades available from previous versions 
Ask about FREE CP/M emulator! <4 


To Order Contact: 


X<EeNeSRET 


1454 Sixth Street, Berkeley, CA 94710 


mie, (415) 525-3113 GB 
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CUSTOM DESIGN 
FOR 


~ CONTROL COMPUTERS 
Why put this expensive 


es oe specialist on your payroll when 
we already have the support 
you need? Vesta specializes in 

el 


Tore the design and production of 
f\C% control computers for OEM's. 


e CREDIBILITY We have thousands of installed systems 


e SUPPORT Your application engineer is as close as 
your phone 

e ECONOMICAL ‘Your break even quantity may be as low as 
50 units 

e FAST Typically 3 to 4 months from ideas to fully 
functional product 

e PROGRAMMING From BIOS to application level 

e PRODUCTION If you don't want to, we do 


Let us help you get your product into the market, ahead 
of your competition and at a reduced cost. Call us to 
discuss your requirements. Our prompt quote will 
make you happy you did. 
VESTA TECHNOLOGY, INC. 
7100 W. 44th Ave.eSuite 101°Wheatridge, CO 80033 
(303)422-8088 
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IC, PROMPTDELIVERY!!! 
S SAME DAY SHIPPING (USUALLY) 


QUANTITY ONE PRICES SHOWN for MAY 17, 1987 






















OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
1Mbit 256Kx4 120ns_ $33.00 
1Mbit 1000Kx1 100ns 28.50 
51258 *256Kx1 100ns 6.95 
4464 64Kx4 150 ns 3.50 
41256 256Kx1 80ns 5.35 
41256 256Kx1 100 ns 4.50 
41256 256Kx1 120 ns 3.60 
41256 256Kx1 150 ns "3.35 
EPROM 
27512 64Kx8 200 ns $9.95 
27C256 = 32kx8 250ns 5.40 
27256 32Kx8 250 ns 5.39 
27128 16Kx8 250 ns 4.30 
2764 8Kx8 250 ns 4.10 


















5Mhz $115.00 


0287-8 8Mhz $25000 











640K MOTHERBD UPGRADE: Zenith 150, 
IBM PC/XT, Compaq Portable & Plus; hp Vectra 


STATIC RAM 
43256L-12 32kx8 120ns $12.95 BS 
6264LP-15 s8kxs 150 ns Ss 


OPEN 67/2 DAYS, 7:30 am-10 pm: SHIP VIA FED-EX ON SAT. 


SUNDAYS & HOLIDAYS: SHIPMENT OR DELIVERY, VIA U.S. EXPRESS MAIL 


SAT DELIVERY MasterCard/VISA or UPS CASH COD 
-NcLUDEDON | Factory New, Prime Parts Pos 
RECEIvep By: | MICROPROCESSORS UNLIMITED, INC. 
Te: SA $4/1 Ib | 24000 S. Peoria Ave., 918 267. 4961 
Fr:P-1 $10.50/2 Ibs] BEGGS, OK. 74421 ) . 
No minimum order. Please note that prices are subject to 
change. Shipping & insurance extra. & up to $1 for packing materials. Orders received by 


9PM CST can usually be delivered the next morning, via Federal Express Standard 
Air ( $4.00, or guaranteed next day Priority One «@ $10.50! All parts guaranteed 
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ETE Ee eee 


Listing One (Listing continued, text begins on page 42.) 


cp:=new tcb ptr; {cp points at tcb} 
cp*.link:=cp; {points at itself} 
cp*.state:=running; {in running state} 
cp*.id:=next_id; {id = 0} 


{now allociate lst frame for task 0} 
frame _ptr:=frame_ptr-task_ stack _size; 


End; 


{kkkkKKKKKKKKK Begin FIFO Procedures KKKKKKKKKKKE | 


PROCEDURE Initialize fifo(VAR o:overhead) ; 


{Initialize a fifo's overhead data structure. } 
{This procedure will work with any type fifo.} 
{This makes the fifo appear empty. } 


BEGIN 
o.count:= 0; {count is empty} 
o.inptr:=1; {ptrs to lst entry} 
o.outptr:=1; {put in and take out at} 


{entry 1} 
o.not_empty:=NIL; {signals to nil} 
o.not_full:=NIL; 


END; 


PROCEDURE Put _byte(b:byte; VAR f:bytefifo); 


{This procedure manages the input of data into} 
{a byte fifo. If the fifo is full when this} 
{procedure is called, the task that called it} 
{will be put to sleep automatically until there} 
{is room in the fifo for the data byte. } 

{The fifo overhead data structure is modified} 
{whenever a byte is placed into the fifo} 


BEGIN 


WITH f.ovd DO 


BEGIN {check if fifo full} 
IF count = bytefifosize THEN 
BEGIN {if so go to sleep} 
waitfor := addr (not_full); 
wait; 
END; {when not full add} 
count :=count+1; {one more to count} 


f.data[inptr]:=b; {store the byte} 
inptr:=inptr+1; {bump input pointer} 
IF inptr > bytefifosize THEN 

inptr:=1; {wrap ptr if necessary} 


{if waiters for this fifo wake them} 


IF not_empty <> NIL THEN 
send (not_empty); 
END; 


END; 


FUNCTION Get byte(VAR f:bytefifo) : byte; 


{This procedure manages the output of data from} 
{a byte fifo. If the fifo is empty when this} 
{procedure is called, the task that called it} 
{will be put to sleep automatically until there} 
{is data in the fifo to retrieve. } 

{The fifo overhead data structure is modified} 
{whenever a byte is removed from the fifo} 


BEGIN 
WITH f.ovd DO 


BEGIN {check if fifo empty} 
IF count = O THEN 


(continued on page 60) 
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CALL POLE EREE 


Professional Programming Products 


Quick-Tools™ 

for QuickBASIC™ users! 
A comprehensive library of over 90 subroutines and 
functions directly CALLable from your QuickBASIC 
programs. 

SORT routines allow sorting of single and 
multidimensional arrays. 

Binary search functions. 

Unique screen handling functions allow splitting 
screens, fast scrolling, special string printing, 
character attribute control, phantom cursors, etc. 
Keyboard scanning and status calls, with field 
inputing and decoding. On screen editing of input 
fields. 

Unique file handling routines. 

FREE Updates and phone support! 

Plus much, much more! 


Only $129.95 Complete 


TURBO.ASM™ 
For Turbo PASCAL users ! 


A unique programming tool which is a must for 
every Turbo Pascal user. The only package designed 
for interfacing assembly language with Turbo 
Pascal. 

Outlines several different ways to add assembly 
language routines to Turbo programs, some without 
effecting your code space. 

Fully explains the internal workingsof Turbo Pascal 
and data passing methods. 

Includes a library of Assembly routines which can 
be used directly from Turbo Pascal. 

The best way to learn assembly language. 

FREE Updates and phone support! 


Only $99.95 Complete 


PROGRAMMERS AND SOFTWARE DEVELOPERS - LOOK AT THESE PRODUCTS! 


by BCSoft 


FREE 


PC-WRITE™ text editor 
with every purchase. 










NET-TOOLS”™ 
NETBIOS Programming Tools 


NET-TOOLS allows vou to write programs for ANY 
NETBIOS compatible local area network - fast and 
easily. CALLable from Microsoft Assembler, C, 
PASCAL, or FORTRAN. 
Add and Delete local names. 
Initiate and Cancel sessions. Just give NET-TOOLS 
the name of the computer vou would like to call, 
and it will automatically locate the user and make 
the connection for vou. 
Transfer Messages with automatic retries and error 
detection. Both the datagram and session protocols. 
Redirect Local Devices simply and easily with a 
single function call. 
Plus much MORE ! 
Complete SOURCE CODE is provided, FREE ! 
FREE Updates and phone support! 
ONLY $149.00 Complete 
ASMLIB™ 

The Programmer's Library 
A set of over 210 subroutines to greatly increaseyour 
productivity. Written in assembly language 
anddirectly CALLable from Microsoft Assembler, 
C,PASCAL, and FORTRAN. 
Complete SOURCE CODE provided -FREE! 
Text WINDOWing functions allow up to 64 
overlapping windows. 
TERMINATE and STAY RESIDENT programs 
arewritten easily. Programs can “POP UP” witha 
simplekevstroke. Use DOS calls from them, also. 
GRAPHICS on the EGA, CGA, and Hercules™ 
Monochrome. 





Virtual file functions. 

Full FLOATING POINT math and trig with 8087 

support. 

Int. driven async. support, plus MUCH MORE! 
Only $149.00 Complete. 


NO ROYALTIES REQUIRED 


To ORDER call or write to: 


BC Associates 
A division of BCSoft Corporation 
3261 N. Harbor Blvd. 
Suite B 
Fullerton, CA. 92635 


VISA 





VISA, M/C, or COD orders are welcome! 


1-800-262-8010 


2 





master Charge 
> | 


in CA. dial 1-714-526-5151 
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The Quality of 
the MKS Toolkit 


Speaks for Itself. 
(Need We Say More? *) 


“The MKS Toolkit is a terrific product! | depend 
on it every day.” 


“This is a very impressive piece of work and it 
can truthfully be said that it has made my 
PC-clone (NEC V-20 @8MHz) into a computer! 
There is little doubt that MKS is offering the 
package with the most user power for the dollar 
on the market today.” 













“T wouldn’t be without the MKS stuff on a PC. And 
the documentation is superb! I use the MKS man 
pages to learn how to use awk and sed more 
efficiently on our BSD UNIX system at work!”’ 


“The Korn shell is great!” 


“This is a solid product. The program that 
makes my day is cpio, which allows me to move 
files to/from UNIX with minimum hassle and 
preservation of mod dates for make use.” 


“This program is a godsend for anyone who has 
to use both UNIX and MS-DOS... .”’ 


“I like the MKS Toolkit a lot. The idea of having 
the same editor on the PC and UNIX machines 
sure makes my life a lot easier.” 







‘at $139.00 the Toolkit is a bargain. 
. . I hope you all reap the rewards of your 
virtue.” 












“The MKS Toolkit has provided me with UNIX 
capabilities I thought I lost when I moved to my 
i 





“I’m impressed with the MKS tools, in particular 
with the breadth of what you provide. . . . I can 
see an order of quality and completeness in the 
MKS tools not found in the PC/V/ package.” 


*These are unsolicited comments from MKS 
Toolkit users. 


Price: $139 


Now available ina 
Separate package: 
Vi 


Price: $75 


Mortice Kern Systems Inc. 


43 Bridgeport Road East, Waterloo, Ontario, 
Canada N2J 2J4 (519) 884-2251 
For information or ordering call collect. 
Prices quoted in U.S. funds. MasterCard, VISA, American Express, and 
purchase orders accepted. OEM & dealer inquiries invited. UNIX is a 
trademark of Bell Labs. MS-DOS is a trademark of Microsoft Corp. 
Site-licensed to major American corporations. No UNIX licence required. 
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TURBO PASCAL MULTITASKING 


Listing One (Listing continued, text begins on page 42.) 


BEGIN {if so go to sleep} 
waitfor := addr (not_empty); 
wait; 

END; 


{when data is available} 
count:=count-1; {one less to count} 
get_byte:=f.data[outptr]; {get the byte} 
outptr:=outptr+1; {bump output pointer} 

IF outptr > bytefifosize THEN 
outptr:=1; {wrap ptr if necessary} 


{if waiters for this fifo wake them} 
IF not_full <> NIL THEN 
send (not_full); 
END; 


END; 


{ ReREA AES Begin: Setiaphore Procedures *****ea*e%} 
PROCEDURE Initialize semaphore (VAR s:semaphore) ; 
{Initialize a semaphore data structure} 

BEGIN 


s.count := 0; {indicate resource is} 


{available} 
{and that there are no} 
{waiters} 


s.signal:=NIL; 


END; 


PROCEDURE Alloc(VAR s:semaphore) ; 


{This procedure allociates exclusive use of a} 
{resource to the task that executes it. This} 
{claim is maintained even though the task} 

{gives up control of the CPU via a yield etc. } 


BEGIN 


WHILE s.count <> 0 DO {wait for semaphore} 
{controlled resource} 


{to become available} 


BEGIN 
waitfor := addr (s.signal); 
wait; 

END; {then} 


s.count:=1; {claim it} 


END; 


PROCEDURE Dealloc(VAR s:semaphore) ; 


{This procedure deallociates a resource. } 
{Note this routine yields so the deallociated} 
{resource has a chance of being used} 
{immediately} 


BEGIN 
s.count :=0; {remove claim on resource} 


send(s.signal); {and awaken the waiting task} 
yield; {give other tasks a chance} 


END; 


{End of kernel procedures} 


End Listing One 
(Listing Two begins on page 62, ) 
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HOT GRAPHICS PACKAGE 





FOR CPROGRAMS. $39." 





Use up to 255 windows THE FIRST 
No special window commands; use print f () 
Resize and move windows PROFESSION AL 
Custom window titles and borders 
programs. Some of the features include: Can be used with ANSI device driver ¢ - COMPILER -OR 
e Support tor EGA, CGA, and Z100 Most of window's code-data lies outside small 
e Over 100 graphics and support functions, many model limits UNDER $60. 
of which are PLOT-10 compatible. Use any of the IBM text or block characters 
e Many low level support routines reside outside User's manual and examples A C compiler with many ANSI enhancements 
your small model code-data area The Windowing Library requires an IBM PC at an unbelievably low price. The Eco-C88 C 
Can write dots thru the BIOS (for compatibility) | Compatible BIOS and the Eco-C88 C compiler. compiler has: . 


or to memory (for speed) ONLY 2O OS e Prototyping (the new type-checking 
enhancement) 


Graphics function help from CED editor 
Enum and void data types 


available 
World, pixel or turtle color graphics modes Structure passing and assignment 
All operators and data types 


A7 standard fill patterns, 17 line dashing LH ANDY LIBRARIAN 

patterns, Hershey fonts, plus user defineable A standard library with more than 200 func- 

fill, dash and fonts bud AKES LIFE EASIER tions (many of which are System V compatible 
G 


e Supports view areas, rotateable fonts, clipping, for greater code portability) 


arbitrary fill areas, extensive error checking, Now you can combine your modules, functions, | @ CC and mini-make that all but automates the 
examples, and user’s manual. 


verything you need to write dramatic 
graphics effects into your Eco-C88 C 

















; . and subroutines into your own library for easy link compile process 
A must for the graphics enthusiast and a | commands. Fully compatible with ANY standard © 8087 support (we sense the 8087 at runtime 
bargain at only OBJ format files (not just Ecosoft’s products). — no dual libraries) 
Oe With the Ecosoft librarian, you can: e ASM or OBJ output for use with MSDOS linker 
e Add, delete, and extract from a library e Tiered error messages — enable-disable lint- 
e Get table of contents or index of a library like error checking 
“Requires Eco-C88 C Compiler. ¢ Combine libraries, control library page size, use | © Fast compiles and executing code 
switches for combinations, process complex e Expanded user's manual 
library requests, use wildcards, and do library e CED full-screen program editor 
ae ay POPP directives from command files. Everything you need at the unbelievable 


e Complete with user's manual price of $59.95. 


WINDOWS PO® A valuable addition for any programmer. Eco-C88 C compiler requires an IBM PC, XT, or 
AT (or compatible) with 256K of memory, 2 disk 
YOUR C PROGRAMS. ONLY 2905 drives and MSDOS 2.1 or later. 


This windowing library allows you to add pop up 
windows in your C programs quickly and easily. Orders only: 
Use them for help windows, selection menus, error 1 -800-952-0 472 
messages, special effects — anywhere you need an 
attention getter. Just some of the features include: 









Ecosoft Inc. 


Technical Information: 6413 N. College Ave. 


































e CGA, EGA, and monochrome support (317) 255-6476 Indianapolis, IN 46220 
e Slow mode option for ‘‘flicker” displays x Et aa 
e Control any program that goes through the ORDER FORM CLIP & MAIL TO: Ecosoft Inc., 6413 N. College Ave., Indianapolis, IN 46220 
is ITEM PRICE QTY TOTAL 
Flexi-Graph Graphics $39.95 
a Window Library $29.95 
Eco-Lib Librarian $29.95 
Ecosoft ; 
Eco-C88 C Compiler CED $59.95 
Support Pr 
i es Cs SHIPPING 





TOTAL (IND. RES. ADD 5% TAX) 


PAYMENT: 0 VISA O MC O AE 1 CHECK 
Na creel teiishmeiesepbsitesy time tig a tl ae a Le Ss Tk Se 
= NAME 
ADDRESS 
a cc herein itp cass oe alcatel edges ali a ela ES ek ie 
5) ee. a Sey 
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Listing Two 


TURBO PASCAL MULTITASKING 


(Text begins on page 42. ) 


PROGRAM Multitasking Demonstration Program; 


{ ERA RH AKER KEKE KKK KK ERE KKK KKK KEK KKKEKKKEREKKKKKKKKE } 


{eer Listing Two wee 
{*=** Multitasking Demonstration weet 
a A dumb terminal program aa) 


{*** utilizing 4 tasks and a serial interrupt ***} 


{ ke service routine. oe 
{*x* REE) 
[eke written by PR 
{x Craig A. Lindley ey 
{*** ake } 
{xxx Ver: 1.0 Last update: 03/11/87 xe} 
{xx AER) 


{ EER KKK KKK KEK KEK KEK EEK KEK KEKE KEKE KEKE KKK KKKKKKEKEE | 


CONST 


bytefifosize = 100; 


{max size of byte fifos} 


{include the multitasking kernel routines} 


{$I 


multi.pas} 


{include the RS-232 functions} 


{$I 


VAR 


{** 
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outbuffer: 


serial.pas} 


inbuffer, 
bytefifo; 


*** Serial Interface Support Procedures *****} 


Programming in Prolog 
Third Edition 
W.F. Clocksin and C.S. Mellish 


The first book to examine Prolog as a practical programming 
language is now in its third edition. Revisions include an account 
of up-to-date programming techniques using accumulators and 
difference structures, new information on syntax errors, and 
operator precedences that are now compatible with the most 
widely-used implementations. Programming in Prolog has 
been further reorganized and the improvements in presentation 
are substantial. The best book on Prolog has gotten better and 
is still a must for anyone involved in logic programming today. 


1987/Approx 290 pp/7 illus/Paper $19.95 
ISBN 0-387-17539-3 


The Art of C Programming 
R. Jones and |. Stewart 


A very clear and readable tutorial to the C programming 
language with several detailed applications illustrating important 
aspects of the language. A major focus throughout the book is 
to introduce the distinctive features and power of C along with 
its basic constructs and concepts. Hobbyists and students alike 
will find The Art of C Programming to be a solid 
introduction to this versatile language. 


1987/186 pp/42 illus/Paper $18.50 
ISBN 0-387-96392-8 


Springer-Verlag 
New York Berlin Heidelberg London Paris Tokyo 








PROCEDURE Get serial char; 


VAR 

b: byte; 
BEGIN 
{Get the character from the UART. Place it in} 
{inbuffer if there is room, throw it away if} 
{not. Signal end of interrupt (EOI level 4 on} 
{8259.} 

b := port [portaddress]; 


IF inbuffer.ovd.count < bytefifosize THEN 
Put_byte(b,inbuffer); 
port [$20] := $20; 


END; 


PROCEDURE Serial Interrupt Service Routine; 
{This is the new interrupt service routine. } 
{It replaces the one MsDos normally uses. } 
{See text for details.} 

BEGIN 


{standard interrupt service routine preamble} 


WE SPEAK YOUR LANGUAGE. 


The World of Programming Languages 
M. Marcotty and H. Ledgard 


This new book is a comprehensive study of the principal 
features found in major programming languages. All concepts 
discussed are drawn from existing languages with specific 
references made to Ada, Algol 60, Algol 68, Cobol, Fortran, 
Pascal, and PL/1. 


1987/360 pp/30 illus/Paper $29.95 
ISBN 0-387-96440-1 
(Springer Books on Professional Computing) 


Software Engineering in C 
P Margolis and P Darnell 


Designed as a text for both beginner and intermediate-level 
programmers. The authors make few assumptions about the 
reader's prior computer experience, starting with a basic 
description of how source code is translated into its internal and 
executable form. Also includes C’s more advanced features 
and documents the proposed ANSI Standard. 


1987/Approx 350 pp/50 illus/Paper 
(Springer Books on Professional Computing) 


To order these or other Springer-Verlag titles, send a check or 
money order (plus $2.50 for shipping) to: Springer-Verlag 
New York, Inc., Attn: G. Kiely S671, 175 Fifth 
Avenue, New York, NY 10010 (NY. NU, and CA residents 
please add sales tax). To order by credit card, call TOLL 
FREE 1-800-526-7254 (In NU, 201-348-4033). 
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INLINE ($50/$53/$51/$52/$57/ {Push ax, bx, cx, dx, } 
$56/$06/$le/ {di,si,es,ds} 
$2e/$al/turbodseg/ {mov ax, cs:turbodseg} 
$8e/$d8/ {mov ds, ax} 

S$fb); {sti} 


Get_serial char; 


{standard interrupt service routine postamble} 


INLINE ($fa/$1f£/$07/S$5e/S5f£/ {interrupts off} 

$5a/$59/$5b/$58/ {Pop ds,es,si,di, } 
{Qx, cx, bx, ax} 
{trash sp, restore} 
{Bp and iret} 


$5d/$5d/Scf); 
END; 
{*kekKKKKKKKKK Begin Task Procedures KKEKKKKKKKKEK } 


PROCEDURE Ta sk_0 i. 


{Task 0 gets keyboard input and puts it into} 
{outbuffer. If no input available task 0 yields. } 
{Note infinite loop structure. } 


VAR 
en: char; 
BEGIN 


writeln(‘'Starting Task 0'); 
writeln; 


tt yas a ane 


SCRUTINY 
Advanced symbolic debugger. 


— Multi-language: compatible with Turbo Pascal, 
Microsoft Assembler, others. 


— Multi-DOS: works with all MS-DOS/PC-DOS 
computers. 


— Multi-level: debug at source level and machine level, 
separately or together. 
— Multi-display: debug character-mode and graphics- 
mode programs, with movable debug windows. 
— Multi-chip: support for 8086, 80186, 80286, 80386. 
— Fast 80386 “memory breakpoints” (stop program 
when specified variable is accessed or modified). 
Scrutiny/Master $99.95 
for debugging Turbo Pascal, Microsoft Assembler, 
and other languages. 
Scrutiny/Turbo Special price! $49.95 
for debugging Turbo Pascal only. 
VISA/MC AMEX accepted. In Texas please add sales 
tax. Outside of North America add $10 per item 
shipping. 
M Street Software 
39400 E. Mockingbird Lane Suite 114 
Dallas, Texas 75206 
214-827-4908 


Information also available via our 24 hour 300/1200 
modem: 214-669-1882. 
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REPEAT 
IF NOT keypressed THEN 
Yield 
ELSE 
BEGIN 
read (kbd, ch) ; 
Put_byte (byte (ch),outbuffer) ; 
END; 
UNTIL false; 


END; 


PROCEDURE Task 1; 


{Task 1 takes character from outbuffer using} 
{Get Byte and sends them out the serial port.} 


BEGIN 


writeln('Starting Task 1'); 
REPEAT 

Serialout (Get_byte (outbuffer)) ; 
UNTIL false; 


END; 


PROCEDURE Task_2; 


{Task 2 retrives characters placed in inbuffer} 
{by the serial interrupt routine and displays} 
{them on the screen. Note:} 

{ 1) If no characters are available this routine} 
{ yields. 


(continued on next page) 





PRODUCTION 
LANGUAGES CORP. 


PRODUCTION QUALITY 


68020 
ANSI C Compiler 


If you are doing serious development for the 
68020 you already know that existing C 
compilers do not utilize the processor's full 
power.... 


UNTIL NOW! 
Uses FULL 68020 instruction set 
Full 68881 floating point co-processor support 
Global optimization 
Full ANSI Libraries 
Cuncurrency supported 


Available on a variety of hosts 
including VME, VAX, IBM PC & MAXII 


CALL TODAY! 


817-599-8366 


Production Languages Corporation 
P.O. Box 109, Weatherford, Texas 76086 
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“What's the 
longest time 
in the world?" 


“Waiting to finish 
a file transfer”’ 


“What's the answer?" 


“RamNet. This 
sophisticated software 
handles all your data 
transfers, E-Mail, BBS, 
and other communi- 
cations functions — 
All automatically in 


the background— 
while you continue 
to run any program, 
do any other task in 
the foreground— All 
without interruption 
— All for $149” 


“How do! find out more?" 


“Call the RamNet BBS 
at (212) 889-6438” 


RamNet 


Software Concepts Design 


594 Third Ave. New York, NY 10016 
(212) 889-6431 
Major Credit Cards Accepted 
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TURBO PASCAL MULTITASKING 


Listing Two (Listing continued, text begins on page 42.) 


{ 2) Interrupts must be disabled while inbuffer} 
{ is being accessed. Otherwise the fifo} 

{ counter will get confused and this program} 
{ will eventually crash. } 


BEGIN 


writeln('Starting Task 2'); 
REPEAT 


IF inbuffer.ovd.count <> 0 THEN 
BEGIN 
INLINE (SFA) ; {interrupts off} 
write(chr(Get_byte(inbuffer))); 
INLINE (SFB); {interrupts on } 
END 
ELSE 


Yield; 


UNTIL false; 


END; 


PROCEDURE Task 3; 


{Task 3 monitors and displays the fifo and cursor} 
{status. It wakes up every 1/2 second to do so.} 
{The cursor position is saved and retrived while} 
{the fifo status is being updated on the screen} 


VAR 


cursorx, 
cursory: byte; 


BEGIN 


writeln('Starting Task 3'); 


REPEAT 
pause (2); {wake every 1/2 sec} 
cursorx := wherex; {save cursor position} 
cursory := wherey; 


window (1,1,80,25); 
gotoxy (21, 25); 
write(cursorx:2); {write cursor position} 
gotoxy (35,25); 
write(cursory:2); 
gotoxy (58,25); {write fifo counts} 
write (inbuffer.ovd.count:2); 
gotoxy (72,25); 
write (outbuffer.ovd.count:2) ; 
window (1,1,80,23); 
gotoxy (cursorx, cursory) ; 
UNTIL false; 


END; 


PROCEDURE Initialize Display; 


{This procedure initializes the screen for the} 
{demo program. It builds a status line on screen} 
{line 25 and then establishes a terminal window} 
{so the status line will not be over written. } 


BEGIN 


window (1,1,80,25); {window is full screen} 
CLRSCR; {clear the screen} 


writeln('Multitasking Demonstration'); 
writeln(*' A dumb serial terminal program'); 


writeln(' Use *C to abort'); 
writeln; 


(Listing continued on page 66) 
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FLOPPY DISK. 


Fills time between coffee breaks 
- Makes a hard disk seem fast 


- Your computer appears busy 
(even if you aren’t!) 


Wears out moving parts 


...for YOUR demanding tasks. 


SURPRISE! Neither is memory mapped, so they don’t 
affect your precious Main Memory. Both retain data indefi- 
nitely - even with the computer turned off. 


THE SEMIDISK SOLUTION. You could invest in a 
series of “upgrades” that turn out to be expensive band-aids 
without solving your real problem. Even those “Ac- 
celerator” and “Turbo” boards do little to speed up disk- 
bound computers. If your applications spend too much time 
reading and writing to disk (and whose don’t?), you won’t 
want to settle for anything less than a SemiDisk disk 
emulator. The SemiDisk comes in 512K and 2Mb capacity. 
More boards may be added to make up to an 8 Megabyte 
SemiDrive! 


SPEED THAT’S COMPATIBLE. PC, XT or AT, if you 
need speed, the SemiDisk has it. How fast? Recent ben- 
chmarks show the SemiDisk is from 2 to 5 times faster than 
hard disks, and from 25% faster (writing) to several times 
faster (random reads) than VDISK and other RAMdisk 
software that gobble up your main memory. 

MEMORY THAT’S STORAGE. Using our small exter- 
nal power supply, with battery backup, your data remains 
intact through your longest vacation or even a seven-hour 
power failure! 


MasterCard vi 
an 





the better fit... 
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SEMIDISK Disk Emulator. 
Gets that job done NOW 
Makes a hard disk seem slow 


Maximizes your productivity 
with anything from databases 
to compilers 


Totally silent operation 


CELEBRATE WITH US! Now, SemiDisk celebrates its 
fifth birthday with a special offer for IBM-PC owners. Buy 
a SemiDisk now and we’ll include an 8 MHz V-20 micro- 
processor (replaces the 8088) to make your new SemiDisk 
run even faster. Don’t need the V-20? We’ll take $20 off 
the price of your Battery Backup Unit! 


512K 2Mbyte 
IBM, PC, XT, AT $495 $ 795 
Epson QX-10 $495 $ 995 
S-100 SemiDisk II $795 $1295 
S-100 SemiDisk I $299 nennennen-n-- 
TRS-80 IT, 12, 16 $495 $ 995 
Battery Backup $130 $ 130 


Someday you’ll get a SemiDisk. 
Until then, you’ll just have to...wait. 


SemiDisk 


SemiDisk Systems, Inc., 11080 S.W. Allen Blvd., Beaverton, Oregon 97005 (503) 626-3104 
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A Reconfigurable 
Programmer’s Editor 
With Source Code 


ME is a high quality programmer’s 
text editor written specifically for the 
IBM PC. It contains features only 
found in the more expensive pro- 
grammer’s text editors. These 
features include: 


e Multiple Windows 
e¢ Column cut and paste 
e Line marking for source code 
e Regular Expressions 
e C-like Macro Language 
e Reconfigurable Keyboard 
e Capture your DOS session 
e Run your compiler and examine 
errors 
¢ Comes with useful precompiled 
macros 























































New commands and features may be 
added to the editor by writing pro- 
grams in its macro language. The 
language resembles C, much easier 
to write macros in than a LISP based 
language. The macro language 
comes with a rich set of primitives for 
handling strings and changing the 
editor environment, plus most of the 
flow-of-control constructs that come 
in C (for, while, if, break, continue). 


The source code option lets you see 
how text editors are written. You will 
also learn how to write interpreters 
by examining the code to the macro 
language compiler and interpreter. 


The code is written in standard C, 
with several key library routines 
written in assembler for speed. The 
source code option is perfect for 
OEMs and VARs who want to add 
editing or word processing capabili- 
ties to their applications. 








Price for editor and on-line 
documentation — $39.95 
Price for editor with 
complete source— $94.95 


(Please add $2.00 for 
shipping and handling) 


Special offer— New York 
Word word processor — $29.95 
Multi-windowing, mail 
merge, hyphenation, math, 
regular expressions, TOC 
and index generators 


MAGMA 
SYSTEMS 


138-23 Hoover Ave., Jamaica, NY 11435 
(718) 793-5670 








CIRCLE 313 ON READER SERVICE CARD 


66 






Listing Two (Listing continued, text begins on page 42.) 


{build the status line} 

gotoxy( 1,25); write('Status -- Cursor X:'); 
gotoxy.(25, 25) >. write ("Cursor Y=:*)? 

gotoxy (49,25); write('Incount:'); 

gotoxy (62,25); write('Outcount:'); 

window (1,1,80,23); {establish terminal window} 
gotoxy (1,8); {home the cursor} 


END; 


{*eRAKKKKKKKKEK Begin Main Program KKKKKKKKKKKKKE | 
BEGIN {main} 


{The main program builds the screen status} 
{line, initializes the input and output fifos, } 
{initializes the multitasking kernel, installs} 
{the serial interrupt handler and then begins} 
{forking the individual tasks. } 


Initialize Display; 


Initialize fifo (inbuffer.ovd); 
Initialize fifo (outbuffer.ovd) ; 
Init _Kernel; 
{Initialize and install the serial interrupt} 
{handler. Install our interrupt routine in} 
{place of the original system IRQ4 handler} 
WITH regs DO 
BEGIN 
ah:=$25; 
al:=$0C; 
ds:=cseg; 
dx:=ofs (Serial Interrupt Service Routine); 
msdos (regs); 
END; 


{Set the serial format to 1200 baud} 
{1 stop bit, 8 data bits and no parity} 


Setserial (1200,1,8,none) ; 
{Fork off tasks one through three} 
Fork; 


IF child process THEN 
Task_1; 


Fork; 


IF child_process THEN 
Task _2; 


Fork; 


IF child process THEN 
Task_3; 


{Enable the serial interrupt} 
Enable serial int; 

{Start Task 0} 

Task_0; 


END. 


End Listing Two 
(Listing Three begins on page 70.) 
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We're Programmer's Connec- 
tion, your best one-stop 
source for quality program- 
mer’s development tools for 
IBM Personal Computers and 
compatibles. We invite you to 
compare us with the other 
dealers in our industry: 


FREE Shipping. Shipping to US. 
customers is FREE via UPS Ground. 
If you want your order shipped via 
an express service, we'll only charge 
you the shipping carrier’s standard 
rate with no special fees. Some 
dealers charge extra for shipping 
and then add rush charges for ship- 
ping via express services. Others 
may advertise “free” shipping but 
make up for it by charging extra 
handling fees. 


Credit Cards. We'll charge your 
credit card only when we actually 
ship your order. Some dealers would 
charge your credit card at the time 
you place your order. This could 
leave you waiting for your shipment 
for weeks or months while they use 
your money interest-free. 


Discounts. We discount all soft- 
ware products — even special order 
items. Every product in our adver- 
tised price list is shown with its list 
price and discounted price. We want 
you to know exactly how much you'll 
Save on every product. We don't try 
to fool you by discounting some 
products and charging full retail for 
others. 












Consistent Prices. We extend the 
Same current prices to every cus- 
tomer regardless of where they see 
our ad. Some dealers vary prices in 
different ads and then ask you to 
mention which one you saw. This 
technique allows them to charge 
you the highest prices possible. 


No Hidden Charges. The discount 
prices you see on the next two 
pages are all you pay. We dont 
charge extra for UPS Ground ship- 
ping, credit cards, COD orders, pur- 
chase orders, sales tax (except Ohio) 
or special handling (except for non- 
Canadian international orders). 


Guarantees. We offer FREE 30-day 
no-risk return guarantees and 30- 
day evaluation periods on most of 
our products. Some dealers have 
no return options while others often 
charge restocking fees of 15% or 
more. 


Quality Products. Our product line 
consists of hundreds of high quality 
software development tools specif- 
ically for IBM Personal Computers 
and compatibles. While some deal- 
ers try to carry every software pro- 
duct ever written, we carry only those 
that meet our very high standards 
for quality and value. 


Latest Versions. The products we 
carry are the latest versions and 
come with the same manufacturer's 
technical support as if buying di- 
rect. While some dealers may partic- 
ipate in the software gray market, 
we're authorized to sell every pro- 
duct we carry. 
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Discover the Difference 


Large Inventory. We have one of 
the largest inventories of program- 
mer’s development products in the 
industry. Most orders are shipped 

within 24 hours. And ifwe don’t have 
product in stock, we'll get it for you 
ast. 


Meticulous Packaging. We'll give 
your shipment the extra protection 
needed to reach you in the best 
possible condition. First we'll pro- 
tect your products from moisture by 
wrapping them in plastic. Then we'll 
insulate your box with high quality 
bubble-wrapping instead of the 
messy styrofoam chips that many 
other dealers use. Finally, we'll 
double-tape your box for extra 
strength. 


Independence. Since we're not di- 
rectly affiliated with any software 
publisher or developer, we can give 
you sound, unbiased advice. Unlike 
some other dealers who have a 
special interest in promoting only 
certain products, we'll give you an 
objective look at the products we 
Carry. 


Noncommissioned Staff. Our 
courteous Sales staff is always ready 
to help you. And if you aren’t sure 
about your needs, our knowledge- 
able technical staff can give you 
sound, objective advice. Because 
they are noncommissioned, you 
won't be pressured into making a 
purchase. 


As you Can see, we're not like 
the other dealers in this in- 
dustry. Our customers Keep 
coming back because we con- 
sistently provide the highest 
quality service and the lowest 
prices. So call us today and 
discover the difference for 
yourself. 
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Periscope II-X Software only .................. 145 
Periscope Ill 8 MHz version ................04. 995 
Periscope Ill 70 MHz version ..............005. 1095 
The PROFILER with Source Code by DWB......... 125 
TURBOsmith Source debugger for Turbo Pascal. .... 69 
The WATCHER Profiler by Stony Brook........... 60 
disk utilities 
Back-It by Gazelle Systems ............... New 100 
Disk Optimizer by Softlogic Systems ............. 60 
FASTBACK hy 5th Generation Systems ........... 179 
XenoCopy-PC by XenoSoft ............... New 80 





dos utilities 

Command Plus by ESP Software ................ 
FANSI-CONSOLE dy Hersey Micro.............. 
Norton Commander dy Peter Worton ............. 
OPAL Shell Language by Software Factory ... New 


OPART Screen Painter ............005. New 
Q-DOS Il by Gazelle Systems ............. New 
Scroll & Recall by Opt-Tech Data ..............4. 


Taskview by Sunny Hill Software ............... 
essential products 


Turbo C versions available. 


C Essentials by Essential Software .............. 
RS Rs Soa ie re ede Fe eer ae 
Essential Comm Library with Debugger ........... 
Essential Comm Library Software Only ......... 
Breakout Debugger Only Any /anguage......... 
CRAGIN TMI 6 indie Vcisia es wcnccla's ease w Us aro 


forth language 


CFORTH Wative Code Compiler by LMI ........... 
Forth/83 Metacompiler Specify Target........... 
PC/Forth by Laboratory Microsystems............ 
PC/Forth+ by Laboratory Microsystems .......... 
Advanced Color Graphics Support ............ 
Enhanced Graphics Support................. 
OTROS) SUPIT o . So5 a de Shoes 
Interactive Symbolic Debugger............... 
Native Code Optimizer ..................... 
Software Floating Point.................... 
RES PR hoses oie lois din oe wateiiaieds tele 
Object Module Libraries.................... 


fortran language 


50 MORE: FORTRAN by Peerless Engr........... 
ACS Time Series by Alpha Computer Service ...... 
Essential Graphics by Fssential Software ......... 
For-Winds by A/pha Computer Service ........... 
Forlib-Plus by Alpha Computer Service ........... 
FU Lis OF SURGEON | oo Cee ee eee 
FORTRAN Addendum by /mpulse Engr ........... 
FORTRAN Addenda dy /mpulse Engr............. 
GRAAL OP OUUESON oi eae dba Gece ses 
HALO Graphics by Media Cybernetics ............ 
1/0 PRO by MEF Environmental ................ 
Microcompatibles Combo Package.............. 

rhein ca de he see Oe 

PIU Cae bs ofan soe Caan at cmnag be 
Microsoft FORTRAN w/CodeView .............. 
No Limit by MEF Environmental..............44. 
Numerical Analyst by MAGUS.................. 
PANEL by Roundhill Computer Systems ........... 
PRU Ee Oe SOOONE Sc. nike 5 tas ale hien ns 
PETE OU SUTOS ONE, ook Sino bs 0 pivactinince ss 
RM/FORTRAN by Ayan-McFarland.............. 
RTC PLUS Fortran to C by Cobalt Blue ........... 
Scientific Subroutine Lib by PS//Systems ......... 
Statistician by Alpha Computer Service ........... 
Statlib.GL: by PS//Systems........ 0... e eee 
States TSE: by PSU Systane oi 6 6x oie ban dee v's 
Strings & Things by A/pha Computer Service ....... 


greenleaf products 


Greenleaf Comm Library ..................... 
Greenleaf Data Windows ..................... 

Wi SOULE COUE SS eee ae ete S ce este ee 
SPOOMORE- FUNCTIONS << «aca e es CE SORA 


help utilities 
ELF UM NOs oie es be 2 bos crac eee aes 


On-line Help from Opt-Tech .................4.. 
SoftScreen/HELP dy Dialectic Systems .......... 


lattice products 


Lattice C Compiler ver 3.2 from Lattice........... 
with Library Source Code .............+.+-5- 
C Cross Reference Generator.................. 
WU SNE EUS Sas oS aha tere tates 
C-Food Smorgasbord Function Library............ 
WHR SOME TOMO: ie 5 a4 Soi eS de eRe 
C-Sprite Source Level Debugger ................ 
Curses Screen Manager ..............02cc000: 
TT COIN Os ca Geos edad a os eRe les 
ORC Spptily OBC for BOW. oo Secck kos cee e ss 
WN ONES COE 8 oi oss TPE ws ne RATS 
GG A Paar aes hie odin Bach vata sea e ol a o 
WIERD SONEO OO 6 Lio cc kek TV Sa wee oes 
CR BRT ACAI oso ee es Be AA wea sie ee 
RPG II Combo A// three items helow............. 
RPG II Compiler Wo Royalties................ 
RPG Il SEU Screen Entry Utility .............. 
See we i sins noe skp ec 
RPG Il Screen Design Aid Utility ............... 
SecretDisk File Encryption Utility .............4. 
SideTalk Resident Communications .............. 
SSP/PC Scientific Subroutine Library ............ 
Text Management Utilities .................... 
TopView Toolbasket Function Library ............ 
SE OOD LINO oa ice Sian ba oes Sas 


metagraphics products 


LightWINDOW/C for DatalightC ............... 
Mater OUTS i ro ok ie Weis das 
MoteF OTR PES ei eins nt cae Mewes 
MetaWINDOW Wo Aoyalties..............0.05. 
MetaVIDOW/ PLUS oo icici ok Us tees ob ee 8 


micro focus products 


Micro Focus Level I! COBOL w/Animator.... New 
Level Il COBOL 


eeceeese eat eeveresciestaesecses 


see eee ee wee wwe eee 


ee ee eee we wee ewe 


Micro Focus Support Products: 


COBOL/IO Ad hoc Report Writer ........ New 495 
COBOL/IQ for DOS 3.X Networks ........ New 995 
CRIS ie ake oe an erelge FR kp aware a 295 
UGE WUTUF ER «3 oso dss vb ceed cw eee eae na 995 
microport products 
System V/AT dy Microport Systems ............. 549 
Runtime System (Operating System) ........... 199 
Software Development System............... 249 
Text Preparation System ................... 199 
Unbaneted Liceute Rit... . ccd ices 249 
microsoft products 
Microsoft BASIC Compiler for XEM/X ........ New 695 
Microsoft BASIC Interpreter for XFM/X........... 350 
Microsoft C Compiler with CodeView ............ 450 
Microsoft COBOL Compiler with COBOL Tools...... 700 
PREM Osos cathy Pens an dean ee ae 995 
Microsoft FORTRAN Optimizing Compiler/CodeView 450 
Microsoft FORTRAN for XEMIX................. 695 
Microsoft Learning DOS ..................... 50 
Microsoft LISP Common LISP.................. 250 
Microsoft MACH 10 with Mouse & Windows ...... 549 
Microsoft MACH 10 Board only ................ 399 
Microsoft Macro Assembler................... 150 
Microsoft Mouse Bus Version.................. 175 
Microsoft Mouse Seria/ Version ................ 195 
Microsoft muMath /ncludes muSIMP............. 300 
Microsoft Pascal Compiler.................... 300 
EPR ed ai ioc Sn Biss «Rage es Pepe’ 695 
Microsoft QuickBASIC Compiler . . New version 99 
DONE NE oie ws ok ah's bewte coen he 195 
ROTO NET POIMIIS nc bec ive Senses ceeds 99 
Microsoft Windows Development Kit ............ 500 
Microsoft Word.......... Special Price thru July 450 
modula-2 language 
MODULA-2 Apprentice Pkg by LOGITECH........ 99 
MODULA-2 Magic Pkg by LOGITECH ........... 99 
MODULA-2 ROM Pkg & Cross RT Debugger ...... 299 
MODULA-2 Window Pkg by LOGITECH.......... 49 
MODULA-2 Wizard's Pkg by LOGITECH ......... 199 
REPERTOIRE for MODULA-2 by PMI............. 89 
CDCECODR ORY 0 io. Se einrelors ee Ves esas oh 19 
mouse products 
LOGIMOUSE BUS with PLUS Pkg by LOGITECH .... 119 
with PLUS & PC Paintbrush... 2.60... 0eeee eee 149 
with PLUS & CAD Software.........0.2200005 189 
with PLUS & CAD & Paint..........00ceecees 219 
LOGIMOUSE C7 with PLUS Pkg, Specify Connector 119 
with PLUS & PC Paintbrush... 06... eee eee 149 
with PLUS & CAD Software.............2044. 189 
WHA PLUS & CAD &: Paint... 5 cc ce ccc ceees 219 
Microsoft Mouse Bus Version .................. 175 
Micresoft Mouse Seria/ Version ................ 195 
other languages 
CCS MUMPS Single-User hy MGlobal ........... 60 
CCS MUMPS Single-User Multi-Tasking .......... 150 
CCS MUMPS Multi-User ............00 200000 450 
Janus/ADA C Pak by R&A Software............. 95 
Janus/ADA D Pak by R&A Software............. 900 
Janus/ADA ED Pak by A&A Software............ 395 
Marshal Pascal by Marshal Language Systems ..... 189 
Pascal-2 hy Oregon Software ............. New 395 
Personal REXX hy Mansfield Software ........... 125 
MME OY CSISMOW 2. os ee teens sed oes 95 
other products 
Dan Bricklin's Demo Pgm by Software Garden ..... 75 
Dan Bricklin’s Demo Tutorial ................ 50 
Informix A// Varieties by Informix ............... CALL 
Instant Replay by Wostradamus...... New Version 150 
MKS Toolkit with vi Editor hy MKS .............. 139 
MicroTEX 7ypesetting from Addison Wesley .. New 295 
Net-Tools by BC Associates .............22004. 149 
OPT-Tech Sort by Opt-Tech Data Proc ........... 149 
PC/TOOLS by Custom Software........... New 49 
Screen Machine by MicroHelp ................. 79 
VTEK Jerm Emulator by Sci Endeavors ........... 150 
phoenix products 
Pasm86 Macro Assembler version 2.0............ 195 
Pdisk Hard Disk & Backup Utility... 2.00... .0445. 145 
Pfantasy Pac Phoenix Combo .................. 995 
Pfinish Fxecution Profiler ........ 6. cece cece 395 
Pfix8Gplus Symbolic Debugger ................. 395 
PforCe Specify C Compiler ........ 0.0 cece 395 
PforCe++ Specify C Compiler and C++ ........... 395 
Plink86plus Overlay Linker ..............02004. 495 
PIMAROE MARGIN 0.555 4 tess Ps be 6 o 5 50 6 Ooms 125 
Pants Matto FO EONS 5 es oven os ok wc ewe wt 195 
NY AS eee bass Gs Main aed eee 295 
Ptel Binary File Transfer Program ............4.. 195 
polytron products 
PolyBoost 7he Software Accelerator ............. 80 
PeyU@SRON ce 6. ooo. woe oS es Dawes New 99 
PolyDesk Ill Archivist ................ New 50 
PolyDesk Ill Cryptographer ............ New 50 
POOR TOR non occ ic sees ceeds New 70 
PolyLibrarian Library Manager ...............!. 99 
PolyLibrarian Il Library Manager................ 149 
PolyMake UW/X-like Make Facility............... 149 
WUD ee are orp ee SA eg Sin ona oe nb oe we 149 
PUTO LO MNINE oP Sc so ces eed ccce ses 50 
Polytran: SN OUEW ora o ocak ase s wble so tnees 99 





395 
795 
235 
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Polytron PowerCom Communications ............ 139 
PolyXREF Complete Cross Ref Utility ............ 219 
PolyXREF One /anguage only ............2.005. 129 
PVCS Network Version Control System...... New 1000 
PVGS COON is ea ea Pe vk 395 
PMS Perennial 325 eae pad ee ese ee 149 


PVMFM Polytron Virtual Memory File Mgr .... New 199 
program mgmt utilities 


Compact Source Print by A/debaran............. 55 
Interactive EASYFLOW dy Haventree ............ 150 
Print by Software Directions ............0.005. 89 
Quilt Computing Combo Package .... . New Version 250 
QMake Program Rebuild Utility... 2.2.6... ee ee 99 
SRMS Software Revision Mgmt Sys ... New Version 185 
Source Print by A/debaran Labs ................ 
TLIB by Burton Systems Software ............... 100 
Tree Diagrammer by A/debaran labs ............ 55 
raima products 
dbQUERY Single-User Query Utility. .........0.... 195 
Single-User with Source Code ............... 495 
IIE SSS iscin one Pees ee VO wa ahem 495 
Multi-User with Source Code ................ 990 
dbVISTA Single-User DBMS ....... 6... cece eee 195 
Single-User with Source Code ............... 495 
PE Ol oe tiv at tae Ue ceo Se 495 
Multi-User with Source Code ..............-. 990 
sco products 
Complete XENIX System V by SCO.............. 1295 
Development System ....................5. 595 
Operating System Specify XT or AT............ 595 
Text Processing Package................... 195 
SI ONE ire a eo 2 APN ee al vende doe 595 
PRN D OV OOO 65-6 55.55 5 Fd 4S es igs ses oles 595 
SCO Professional 7-2-3 Workalike for XENIX....... 795 
softcraft products 
Btrieve /SAM Mor with No Royalties ............. 245 
ee a) a a 245 
Report Option for Xtrieve ................... 145 
DUONG TOF ODIOIES 5 ics ein cc ews Saveas 595 
oe fe Ee a A eee 595 
Report Option/N for Xtrieve/N............... 345 
text editors 
Brief & dBrief Combo from Solution Systems ...... 250 
RE, See or eet New version 195 
dBrief Customizes Brief for dBASE Ill........... 95 
Epsilon Fmacs-like editor by Lugaru.............. 195 
KEDIT by Mansfield Software ..............0055 125 
Micro/SPF by Phaser Systems .............0445 175 
Microsoft Word .......... Special Price thru July 450 
PC/VI by Custom Software Systems ............. 149 
SPF/PC by Command Technology Corp........... CALL 
Wait by Comme I0W 5 5k 5 552503 be ciene cs Boos 2c 150 
Vedit Plus hy CompuView ...............20405- 185 
turbo pascal utilities 
ALICE /nterpreter hy Software Channels .......... 95 
DOS/BIOS & Mouse Tools by Quinn-Curtis........ 75 
Flash-up Windows by Software Bottling .......... 90 
MACH 2 for Turbo Pascal by Micro Help .......... 69 
MetraByte D/A Tools by Quinn-Curtis............ 100 
Science & Engrg Tools by Quinn-Curtis........... 75 
Screen Sculptor by Software Bottling ............ 125 
screenplay for Turbo Pascal by Flexus............ 100 
Speed Screen by Software Bottling.............. 35 
System Builder by Royal American .............. 130 
IMPEX Query Utility... 00k cc cece 75 
SC ONOOT 0. occ cen ad css Sateen 75 
TDebugPLUS dy TurboPower Software ........... 60 
Turbo EXTENDER dy 7urboPower Software........ 85 
Turbo OPTIMIZER dy TurboPower ......... New 75 
Turbo OPTIMIZER with Source Code ....... New 125 
Turbo Professional by Sunny Hill ............... 70 
SURE UU INO ong 5h 6s 0 8 6 Saas eo 8 129 
TurboPower Utilities by TurboPower............. 95 
TurboRef by Gracon Services ............00005 50 
TURBOsmith Source Debugger hy Visual Age ...... 69 


Universal Graphics Library by Quinn-Curtis .... New 150 
wendin products 


Operating System Toolbox ......... Rebate Offer 99 
PCNX Operating system ............ Rebate Offer 99 
PCVMS Similar to VAX/VMS .......... 0000005. 99 
XTC ext Editor w/Pascal source ............... 99 


xenix / unix products 


Btrieve /SAM File Mor by SoftCraft.............. 595 
PIED SIN oo ice TS, slat wic Se ws.e bh ba eae 498 
c-tree /SAM Mor by FairCom .............2004. 395 
dBx with Library Source hy Desktop Al............ 550 
DOSIX Console Version by Data Basics ........... 399 
DOSIX User Version by Data Basics ............. 199 
Informix A// Varieties by Informix ...........044. CALL 


Micro Focus Products See Micro Focus Section 
Microport Products See Microport Section 
Microsoft Products See Microsoft Section 


PANEL Plus by Roundhill Computer Systems ....... 495 
REAL-TOOLS Binary Version by PCT ............. 149 
Library Source: VOmsiolh oc. dss 0. 6 oes ow a0 00 399 
Complete Source Version ...........02000005 499 
RM/COBOL by Ayan-McFarland ................ 1250 
RM/FORTRAN by Ayan-McFarland.............. 750 


SCO Products See SCO Section 
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LOWEST PRICES 
Due to printing lead times, some of our current 
prices may differ from those shown here. Call for 
latest pricing. 

FREE SHIPPING 
Orders within the USA (including Alaska & Hawaii) 
are shipped FREE via UPS. Express shipping is 
available at the shipping carrier's standard rate 
with no rush fees or handling charges. To avoid 
delays when ordering by mail, please call first to 
determine the exact cost of express shipping. 


CREDIT CARDS 
VISA, MasterCard and Discover Card are accepted 
at no extra cost. Your card is charged when your 
order is shipped. Mail orders please include credit 
card expiration date and authorized signature. 


CODs AND POs 
CODs and Purchase Orders are accepted at no 
extra cost. POs with net 30-day terms are available 
to qualified US accounts only. 


SALES TAX 
Orders outside of Ohio are not charged state sales 
tax. Ohio customers please add 6% Ohio tax or 
provide proof of tax-exemption. 


INTERNATIONAL ORDERS 

Shipping charges for International and Canadian 
orders are based on the shipping carrier's standard 
rate. Since rates vary between carriers, please call 
or write for the exact cost. International orders 
(except Canada), please include an additional $10 
for export preparation. All payments must be made 
with US funds drawn on a US bank. Please include 
your telephone number when ordering by mail. Due 
to government regulations, we cannot ship to all 
countries. 


VOLUME ORDERS 
Volume orders may qualify for additional dis- 
counts. Call us for special pricing. 


SOUND ADVICE 
Our knowledgeable technical staff can answer 
technical questions, assist in comparing products 
and send you detailed product information tailored 
to your needs. 


30-DAY GUARANTEE 
Most of our products (excluding books) come with 
a 30-day documentation evaluation period or a 
30-day return guarantee. Please note that some 
manufacturers restrict us from offering guarantees 
on their products. Call for more information. 
MAIL ORDERS 
Please include your telephone number on all mail 
orders. Be sure to specify computer, operating 
system and any applicable compiler or hardware 
interface(s). Send mail orders to: 
Programmer's Connection 
Order Processing Department 


136 Sunnyside Street 
Hartville, OH 44632 


CALL TOLL FREE 


ec. oS oe PEE we 800-336-1166 
Pht alee 800-225-1166 
OHIO & ALASKA (Collect) . . 216-877-3781 


FELEA:s. oi ben Ve pohaeegee 9102406879 
BASTIIOK: i525 «eons eee 62806530 
INTERNATIONAL ...... 216-877-3781 


CUSTOMER SERVICE .. 216-877-1110 
Hours: Weekdays 8:30 AM to 8:00 PM EST. 


Call or write for our FREE comprehensive price guide. 


©Copyright Programmer's Connection, Inc., 1987. 
All Rights Reserved. 












C & PASCAL __ TURBO PASCAL MUI 
PROGRAMMERS Listing Three (Text begins on page 42.) 


Blaise Computing provides a broad range of pro- CITC ICICI CCITT TOI TOIT ICK } 
sires oe Te C Pee [ee Listing Three kee} 
with libraries designed for serious software [wee Mult itasiing Demonstration kee) 
development. You get carefully crafted code eae 
me {*** Support routines **} 
that can be easily modified to grow with your [was Keay 
plete with compecticusive manuelae epee he) written by sid 
P d P d : re {*** Craig A. Lindley eek } 
grams and source code. [eee ee) 
° = kik 
C TOOLS PLUS pte Vers 1.6 Last update: 03/11/87 oe 
$ LT OO { KRKEKEKKKKKKKEKKEKKEKKEKKEKKKKKEEKKKKKKKKKKKKKKKKKKEKE } 
NEW! Full spectrum of general-purpose utility 
functions; windows that can be stacked, re- CONST 
moved, and accept user input; interrupt serv- 
ice routines for resident applications; screen COM1 =1; {com one PC port} 
handling including EGA 43-line text mode .sup- portaddress = $3f8; {address of UART for} 
port and direct screen access; string functions; {COM1 } 
and DOS file handling. 
TYPE 
PASCAL TOOLS/TOOLS 2 
$175.00 parity type = (odd,even, none); 
Expanded string and screen handling; graphics 
routines; easy creation of program interfaces; VAR 
memory management; general program con- 
trol; and DOS file support. regs: register type; 
VIEW MANAGER 
$275 00 PROCEDURE Int14 (portnumber, command, 


rameter:integer) ; 
Complete screen management; paint data entry pa a 


screens; screens can be managed by your appli- 
cation program; block mode data entry or field- 
by-field control. Specify C or IBM/MS-Pascal. 


{Procedure to initialize the com ports} 


BEGIN 
ASYNCH MANAGER eee ee 
$175.00 BEGIN , 
Full featured asynchronous communications dx := portnumber - 1; 
library providing interrupt driven support for ah := command; 
the COM ports; I/O buffers up to 64K; XON/ al := parameter; 
XOFF protocol; baud rates up to 9600; modem flags := 0; 
control and XMODEM file transfer. Specify C or intr ($14, regs) ; 
IBM/MS-Pascal. END; 


Turbo POWER TOOLS PLUS | x5. 
$99.95 


NEW! Expanded string support; extended 


screen and window management including EGA PROCEDURE Setserial (baudrate,stopbits, 

support; pop-up menus; memory management; databits: integer; 

execute any program from within Turbo Pascal; parity: parity type); 
interrupt service routine support allowing you 

to write memory resident programs; schedul- {Configure COM1 with the specified parameters} 


able intervention code. 


Turbo ASYNCH PLUS 
$99.95 parameter: integer; 


Complete asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; and baud rates up to 9600. 


VAR 


BEGIN 


writeln('Configuring the serial parameters'); 


writeln; 
RUNOFF CASE baudrate OF 
300: baudrate := 2; 
$49.95 1200: baudrate := 4; 
NEW! Text formatter written especially for pro- ELSE baudrate := 4; {default is 1200 baud} 
grammers; flexible printer control; user-defined END; 
variables; index generation; and general macro 
facility. Crafted in Turbo Pascal. IF stopbits = 2 THEN 
stopbits := 1 
$95.00 stopbits := 0; {default is 1 stop bit} 
Program chaining executive. Chain one pro- 
gram from another even if the programs are in IF databits = 7 THEN 
different languages. Shared data areas can be databits := 2 
specified. ELSE 
yt ntl ta vy. ry, PTT TL databits := 3; {default is 8 bit words} 
a <3 ray e 
parameter := (baudrate SHL 5)+ 
am 


(stopbits SHL 2)+databits; 


i 
BLAISE COMPUTING INC. 


2560 Ninth Street. Suite 316 Berkeley, CA 94710 (415) 540-5441 


(continued on page 73) 
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Unleash The Most Powerful 
Development Tools 


OnThe Planet DOS. 





UNIFY DBMS/DOS.The UNIX World Leader 
Brings A New Dimension Tod DOS Application Development. 


What happens as the DOS world expands? As a 
new generation of hardware takes over? As networking 
becomes more important? The potential is enormous. 
But until now, the tools to achieve it have been limited. 

Now a leader from another world unleashes that 
potential: UNIFY® DBMS. The leading relational 
DBMS in the UNIX™ world. And now, the most 
advanced set of application development tools in the 
DOS world. 

With UNIFY DBMS, DOS developers have new 
power to build more sophisticated applications than ever 
before possible. 

The power to write high performance “C” 
programs that will access the data base, using 
Unify’s Direct Host Language Interface. 

The power of an industry standard 
query language—SQL. 

The power of unmatched speed in pro- 
duction applications. Only UNIFY DBMS is 
specifically engineered for transaction through- 
put. With unique performance features like 
PathFinder™ Architecture multiple access meth- 
ods, for the fastest possible data base access. 


The power of comprehensive pro- 
gram development and screen man- 
agement tools. Plus a state- 
of-the-art fourth generation 
report-writer. 

What’s more, with UNIFY 
DBMS, the potential of networked 
applications becomes a reality. Unlike 
DBMS systems which were originally 
single-user (and which have along stretch ~*~. 
to accommodate more users), UNIFY DBMS — 
is a proven multi-user system. 

And because UNIFY DBMS/DOS is 
the best of two worlds, it offers you the most 
powerful benefit of all: DBMS applications that 
can grow as your needs grow. From single user 
DOS. To networked DOS. To multi-user UNIX. 
All without changing your applications. 


Call the Unify Information Hotline 
for our free booklet: The New DOS World. 


(503) 635-7777 


UNIFY 


CORPORATION 


4000 Kruse Way Place 
Lake Oswego, OR 97034 


© 1986 Unify Corporation. UNIX™ is a trademark of AT&T Bell Laboratories. 
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On April 2,1987 
IBM and Quarterdeck 
next generation 
In personal computing. 





announced the 











n one sweeping announcement from 
Miami Beach and New York City, 

IBM established new standards of 
performance for personal computers, 
with its new Personal System/2.™ 
Quarterdeck was there with IBM and 
simultaneously helped establish new 
standards for multi-tasking and multi- 
windowing. 

We were there for them then. We’re 
here for you now. 

If you use two or more software 
programs, if you use a PC- compatible 
machine, if you own a new 80386 
computer, if you’ve just bought one of 
the new Personal System/2 computers, 
or if you've tried Microsoft Windows 
and were disappointed but still need the 
power of graphics programs, DESQview 
2.0 is the answer. 

Consider this. InfoWorld voted 
DESQview’s earlier version 1986 Prod- 
uct of the Year. SoftSector gave it the 
Editor's Choice Award. In PC Tech 
Journal's “System Builder Contest” at 
Comdex Fall it was voted best operating 
environment. And 450,000 dedicated 
users on four continents have voted yes 
with their dollars. 

The new DESQview 2.0 is an order of 
magnitude better. 

This unique software program 
enhances the power of your personal 
computer and makes it more convenient 
to use. It still gives your PC the power 


Introducing DESQview 2.0. Improving the 
past and ready for the future right now. 


of many PCs. It still does windows. 
It still multi-tasks. It still breaks the 
DOS 640K barrier. It still transfers data. 
It still dials your phone. It still gives 
you menus for DOS. It still remembers 
your keystrokes (macros). It still runs 
your existing programs and your new 
programs soon to come. In fact now 
you can even run Windows-, GEM-, and 
Topview-specific programs too. And 
with 386 machines and our Expanded 
Memory Manager it still becomes a 
386 control program, but now you can 
run text and CGA graphics programs 
in background. 

The new DESQview 2.0. 

For us it’s the next logical step. 
For you it’s windows of opportunity. 


Rush me DESQview 2.0! Today! 


No. of Copies Media 342"/54" Product 
















Shipping & Handling USA 
Outside USA 
| Sales Tax (CA residents) | 


DESQview 2.0 











SYSTEM REQUIREMENTS 

° IBM Personal Computer and 100% 
compatibles (with 8086, 8088, 80286 or 80386 
processors) with monochrome or color 
display; IBM Personal System/2 * Memory: 
640K recommended; for DESQview itself 
0-145K » Expanded Memory (Optional): 
expanded memory boards compatible with 
the Intel AboveBoard; enhanced expanded 
memory boards compatible with the AST 
RAMpage » Disk: Two diskette drives or one 
diskette drive and a hard disk» Graphics Card 
(Optional): Hercules, IBM Color/Graphics 
(CGA), IBM Enhanced Graphics (EGA), 

IBM Personal System/2 Advanced Graphics 
(VGA) * Mouse (Optional): Mouse Systems, 
Microsoft and compatibles» Modem for 
Auto-Dialer (Optional): Hayes or Compatible 
* Operating System: PC-DOS 2.0-3.3; MS-DOS 
2.0—3.2 * Software: Most PC-DOS and MS-DOS 
application programs; programs specific to 
TopView 1.1, GEM 1.1 and Microsoft Windows 
1.03 * Media: DESQview 2.0 is available on 
either 5/4" or 3%” floppy diskettes 





Retail Price ea. Total | 
$129.95 


$ 5.00 
$ 10.00 


Pee Poo 






Amount 

Payment: []Visa LJMC [L)AMEX ([]Check Enclosed 

| Credit Card: Valid Since —_—_____ / Bxpiration So | 
Card Number: 

| Credit Card Name | 
Shipping Address 
I isis apt es NS he nie J esterases OT ALLS | 
Mail to: Quarterdeck Office Systems, 150 Pico Boulevard, Santa Monica, CA 90405 
NOTE: If you own DESQview call us for a special upgrade offer, or send in your DESQview 
registration card and we'll send you upgrade information. 











Quarterdeck 
Quarterdeck Office Systems ¢ 150 Pico Boulevard, Santa Monica, CA 90405 « (213) 392-9851 





DESQview isa trademark of Quarterdeck Office Systems. AboveBoard is a trademark of Intel Corporation. Hayes is a trademark of Hayes Microcomputer Products, Inc. IBM, PC, Personal System/2 and TopView are trademarks 
of International Business Machines Corporation. Microsoft Windows and MS are registered trademarks of Microsoft Corporation. Mouse Systems is a trademark of Metagraphics/Mouse Systems. RAMpage is a trademark of 
AST Research, Inc. GEM is a trademark of Digital Research. Hercules is a trademark of Hercules. 
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Listing Three (Listing continued, text begins on page 42.) 





CASE parity OF 


odd: parameter := parameter + 8; 
even: parameter := parameter + 24; 
none: ; 

END; 


Int14 (COM1,0,parameter);{do the configuration} 


END; 


FUNCTION Serialstatus : integer; 
{Get the status of COM1 port} 
BEGIN 


Int14 (COM1,3,0); 
serialstatus := regs.ax; 


END; 


PROCEDURE Serialout (b:byte); 
{Send a byte out the COM1 port} 
BEGIN 


{wait till UART is ready} 
WHILE (Serialstatus AND $2000) = 0 DO; 


{then send the byte out} 
port [portaddress] := b; 


END; 


PROCEDURE Enable serial int; 
BEGIN 
{clear the serial interface of any garbage} 
INLINE ($BA/portaddress /SEC/ 
S$BA/portaddress+5/SEC/ 
SBA/portaddress+6/SEC) ; 


INLINE (S$E4/$21/$24/SEF/$E6/$21); {IRQ4 enabled} 


port [portaddress+4] := SOB; {set DTR, RTS} 
{and OUT2} 

port [portaddress+1] := 1; {receiver} 
{interrupt} 
{enabled} 

END; 


{End of RS-232 procedures} 
End Listings 
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BE A POWER USER! 


MAKE YOUR PC 
SEEM LIKE AN AT! 


MAKE YOUR AT 


SEEM LIKE A 
DREAM MACHINE! 


ANSI-” 





The Integrated Console Utility™ 
FAST, POWERFUL 
ANSI.SYS REPLACEMENT 


For IBM-PC DOS 


New Version 2.00 is MUCH FASTER! 
Now blink free scrolling on CGA! 
Now Uses EMS/EEMS for Scroll Recall! 
New Menu Program for Changing Options! 


GET A BOX FULL OF UTILITIES! 
MAKE LIFE EASIER FOR ONLY $75! 


e Speed up your screen writing 2-6x 
e Extend your ANSI.SYS to VT100 

e Add many more escape sequences 
¢ Scroll lines back onto screen 

¢ Save scrolled lines into a file 

e Add zip to your cursor keys 

e Free your eyes from scroll blinking 
e Easy installation 

¢ Get a 43 line screen W/EGA 

¢ No more annoying typeahead beep 
e Prevent screen phospher burn-in 

e Shorten that annoying bell 

e Over 60 useful options 


‘“‘The psychological difference is 
astonishing”’ 
—Lotus June 85 pg 8. 


JIALI(] IJOSUDD ISNY ISB MPOCSCOCOCOCOCOCCOCOOOCOOCOCOCOCS 


“So many handy functions rolled 
into one unobtrusive package’”’ 
—PC-World Feb 86 pg 282. 


“The support provided by the 
publishers is extraordinary”’ 
—Capital PC Monitor May 86 pg 25. 


““. . the best choice for improving 
your console...”’ 
—Capital PC Monitor June 86 pg 26. 


‘“.. documentation is nicely laid 
out and well written. ..”’ 

‘““..a fine enhancement to any IBM 
system.”’ 

—PC Tech Journal Jan 87 pg 180. 


















Manual (w/slip) & disks: $75 plus $4 s/h. 


Satisfaction Guaranteed! 
Order Yours Today! 


HERSEY MICRO CONSULTING 
Box 8276, Ann Arbor, MI 48107 
(313) 994-3259 VISA/MC/Amex 

DEALER INQUIRIES INVITED 


ecococococococooocooccococecoococoscosoooe: Fast ANSI Console Driver 
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The 
Heap Expander 


dynamically allocates data storage 


space in expanded memory #6 
59 gd 


simple interface 
up to 8 megabytes % 
of heap space 
with appropriate hardware 
libraries and source code for: 
— Microsoft C, Lattice C, 
Mark Williams C, and others 
— Turbo Pascal 
‘— Logitech Modula-2 
requires IBM PC, XT, AT, or close 
compatible with LIM-standard 
expanded memory and MS—DOS 
or PC—DOS ver. 2.0 or above 
MC/VISA/COD call 
1-800-248-1045 x100 (US) 
1-800-952-5560 x100 (Idaho) 


The Tool Makers 


P.O. Box 8976 
Moscow, Idaho 83843 
(208) 883-4979 


*Idaho residents add 5% sales tax 
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PLOTHI 
$175.00 


GRAFLIB 
$175.00 


FORTLIB 
$125.00 


In C and 
Fortran-/7 


Plotting routines for Hewlett-Packard & 
HPGL compatible plotters. Available in 
FORTRAN-77 & C. Full source & 
manual included. 


Plotting routines for Houston Instru- 
ments DM/PL compatible plotters. 
Available in FORTRAN-77 & C. Full 
source & manual included. 


FORTRAN-77 & C callable screen gra- 
phics routines. Full source & manual 
included. 


FORTRAN-77 enhancement routines 
for various MS-DOS FORTRAN com- 
pilers. Full source & manual included. 


Call or Send For a Catalog: 


SUTRASOFT 


P. O. Box 1733 
Sugar Land, TX 77487-1733 
(713) 491-2088 
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PRODUCTIVITY 
TOOLS 


PLOTHP 
$175.00 
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Listing One (Text begins on page 94.) 


51] 
52 | 
53 | 
54 | 
55 | 
56 | 
57 | 
58 | 
59 | 
60 | 
61| 
62 | 
63 | 
64 | 
65] 
66 | 
67 | 
68 | 
69 | 
70 | 
71 | 
72 | 
73 | 
74 | 
V9:I 
76 | 
EF] 
78 | 
79 | 
80 | 
81] 
82 | 
83 | 
84 | 
85 | 
86 | 
87 | 
88 | 
89 | 
90 | 
91} 
92 | 
o3"| 
94 | 
95 | 
96 | 
97 | 
98 | 
99 | 
100 | 
101 | 
102 | 
103 | 
104 | 
105 | 
106| 


Listing 1 -- vbios.c 


#include <stdio.h> 


#include <dos.h> 


/* (Microsoft file) includes for int86() */ 


/* VBIOS.C: Various cursor and i/o routine using 
* the bios interrupts (see below for greater detail): 


Externally accessable routines: 


int 
void 
void 
void 
void 
int 


* 

x 

* 

x 

* 

* 

x 

* 

x 

* void 
* int 
* void 
* void 
x 
x 
x 
* 
* 
x 
* 
* 


LTE 

void 
void 
void 


void 


#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 


static union REGS 
static int 


imt 
int 


vb_getpage () 
vb_putchar (c) 
vb_getchar (c) 
vb_puts (s, move) 


Get active video page # 
write a single character 
get a key from the bios. 
write a string 


vb_replace (c) write char w/o moving cursor 
vb inchar (attrib) Get character & attribute 
vb setcur (posn) Set cur pos as int on cur page 


vb getcur () 
vb_ctoyx (y,x) 
vb _getyx (é&y, &x) 


Getcur pos as int fromcur page 
Set cursor position to (y,x) 
Get cursor position 


vb_iscolor () 

vb cursize (top, bot) 
vb_blockcur () 
vb_normalcur () 


color monitor installed 
Set cursor size 

make a block cursor 
revert to a normal cursor 


vb_scroll(l1,r,t,b,a) Scroll region 


en x / 
int86( int, union REGS *, union REGS *); 
EE ee Se ee ee es eS */ 
VIDEO_INT 0x10 /* Video interrupt “/ 
KB_INT 0x16 /* Keyboard interrupt “ye 
CUR_SIZE 0x1 /* Set cursor size *y 
SET _POSN 0x2 /* Modify cursor posn =/ 
READ POSN 0x3 /* Read current cursor posn */ 
WRITE 0x9 /* Write character */ 
WRITE TTY Oxe /* Write char & move cursor */ 
GET_VMODE Oxf /* Get video mode & disp pg */ 
li i tnt cg aa ey tiene aap niin tte sts acne ns ies ie viens eb ones */ 


Regs; /* Used to talk to DOS */ 
Attribute; /* Current attribute x / 


vb_scroll( x_left, x_right, y_ top, y bottom, amt ) 


/* Scroll the indicated region on the screen. 
* If amt is negative, scroll down. 
ny 


if( amt < 0 ) 
{ 
Regs.h.ah = 7 ; 
Regs.h.al = -amt ; 
} 
else 
{ 
Regs.h.ah = 6 ; 
Regs.h.al = amt ; 
} 


Regs.h.bh = 0x07 
Regs.h.cl = x_left 
Regs.h.ch = y top ; 
Regs.h.dl = x right ; 
Regs.h.dh = y bottom ; 


int86(0x10, &Regs, &Regs); 


vb_inchar( attrib ) 
*attrib; 
/* Return the character at the current cursor 
* position and, if attrib is non-NULL, put the 
* attribute there. Note that vb getpage() will mess 
* up the fields in the Regs structure so it must 
* be called first. 
“7 


Regs.h.bh = vb _getpage() 
Regs.h.ah = 8 ; 


int86( VIDEO_INT, &Regs, &Regs ); 


if( attrib ) 
*attrib = Regs.h.ah & Oxff ; 


return( Regs.h.al & Oxff ); 


vb_getpage() 


/* Returns the currently active display page number 
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107| ay 

108 | 

109} Regs.h.ah = GET _VMODE; 

110] int86( VIDEO_INT, &Regs, &Regs ); 

111 | 

112 | return (int) Regs.h.bh ; 

113 |. 3 

114 | 

115| /*-------------------------------------------------------- */ 
116| 

12i7f void vb_cursize( top line, bot_line ) 

118| { 

119| /* Scan lines are numberd 0 at the top and 7 at the 
120| * bottom on the color card. On the monochrome card 
121 | * they're 0-12. If top & bot are reversed you'll 
122 * get a 2 part cursor. Top line determines the 

123 | * position of the top scan line of the cursor, 

124 | * bot_line is the bottom. A normal cursor can be 
125 | * created with vb cursize(6,7). Cursize(0,7) will 
126| * fill the entire area occupied by a character. 
127| * Cursize(0,1) will put a line over the character 
128 | * rather than under it. 

129| =i 

130 | 

13T | Regs.h.ch = top line ; 

132 | Regs.h.cl = bot line ; 

133 | Regs.h.ah = CUR_SIZE ; 

134 | int86( VIDEO_INT, &Regs, &Regs ); 

135°} >} 

136 | 

137| /*-------------------------------------~------------------- */ 
138 | 

139| int vb _iscolor() /* Returns true if acolor card isactive */ 
140| { 

141| Regs.h.ah = GET VMODE ; 

142 | int86( VIDEO INT, &Regs, &Regs ); 

143 | return( Regs.h.al != 7 ); 

144| } 

145 | 

146| void vb_blockcur() /* Make the cursor a block curser */ 
147| { 

148 | vb_cursize( 0, vb_iscolor() 2? 7: 12 ); 

149| } 

150 | 

151] void vb _normalcur() /* Make it an underline cursor */ 
152/ { 

153 | if( vb_iscolor() ) 

154 | vb cursize( 6, 7); 

L551 else 

156| vb _cursize( 11, 12 ); 

£S7{ |} 

158 | 

159| /*------------------------- -- -- -- - -- -- -- -- +--+ + +--+ + xf 
160 | 

161| void vb_setcur( posn ) 

162| int posn; 

163] { 

164 | /* Modify current cursor position. The top byte of 
165 | * “posn" value holds the row (y), the bottom byte, 
166 | * the column (x). The top-left corner of the screen 
167 | * is (0,0). Pagenum is the video page number. Note 
168 | * that vb getpage() will mess up the fields in the 
169 | * Regs structure so it must be called first. 

170 | x / 

171 | 

172 | Regs.h.bh = vb_getpage() 

173 | Regs.x.dx = posn 

174 | Regs.h.ah = SET POSN 

175| int86( VIDEO INT, &Regs, &Regs ); 

176] } 

LT? | 

178| int vb getcur () 

179| { “3 

180| /* Get current cursor position. The top byte of the 
181| * return value holds the row, the bottom by the 
182 | * column. Pagenum is the video page number. Note 
183 | * that vb_getpage() will mess up the fields in the 
184 | * Regs structure so it must be called first. 

185| “/ 

186 | 

187 | Regs.h.bh = vb getpage() 

188 | Regs.h.ah = READ POSN 

189] int86( VIDEO_INT, &Regs, &Regs ); 

190 | return( Regs.x.dx ); 

191! } 

192 | 

193| /*---------------------------------------------------------- 
194| * vb cotyx() and vb getyx also get the cursor position. 
195| * They use x and y values, however. 

196}. */ 

197 | 

198| void vb_ctoyx ( y, x ) 

199] -{ 

200 | vb_setcur( (y << 8) | (x & Oxff) ); 

201] } 

202 | 

203] void vb_getyx( yp, xp ) 

204| int *yp, *xp: 

205! { 

206| register int posn; 

207 | 

208 | posn = vb getcur(); 

209| *xp = posn & Oxff ; 

210| *yp = (posn >> 8) & Oxff ; 

2ii4 } 

ue | 

213| /*--------- nn ----- = -- $= -- -- - -- -- -- -- -- - -- -- -- -- +--+ -+ */ 
214 | 


(continued on page 78) 
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AWE HIN ee! 


C-PROGRAMMERS 


Fie System Utility Libraries 


All products are written entirely in K&R C. Source 
code included, No Royalties, Powerful & Portable. 


75.00 


® High speed random and sequential access. 
* Multiple keys per data file with up to 16 million records per file. 


* Duplicate keys, variable length data records. 
a 44.q).0O 


ALL THREE PRODUCTS FOR — 





® Greatly speeds application development. 
¢ Supports multi key files and dynamic index definition. 
® Patterned after the UNIX utility. 
Full Documentation and Example Programs Included. 
For more information call or write: 
Oakville, Ontario, Canada 


* Combines ease of use of database manager with flexibility of program- 
® Very easy to use. 
59.00 
® Works for programs written in every language. 
149.00 
L6L 255 


ming language. 
Make 
® Full macros, File name expansion and built in rules. 
1343 Stanbury Drive 
(416) 825-0903 





Credit cards accepted. Dealer inquiries invited. 
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32k Math Package: $750 


Assembly source code for Sin, Cos, 
Tan, Atan, Log, Exp and Sart. 


Single and double precision versions. 
Highly optimized code. 


32k Floating Point Package:$500 


Assembly source code to emulate the 
32081 coprocessor in software. 
Emulation is transparent to user code. 
Allows building of systems with the 
coprocessor absent or optional. 


Price includes right to distribute binary 
copies in a product without royalties. 


Call W.R.I.S.T. Inc. (718) 937-7955 
8-33 40th Ave., L.I.C., N.Y. 11101 
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THE PROGRAMMERS SHOP 


helps save time, money and cut frustrations. Compare, evaluate, and find products. 


a ON aa 


Periscope III - debugger with 64K 
protected RAM and breakout switch; 
breakpoints for hardware, memory, 
port, data. Real-time trace buffer, 
pass counter. PC. $| 829 


Al-Expert System Dev't 


Arity Combination Package PC $ 979 


System - use with C MS $ 229 
SQL Dev’t Package MS $ 229 
Auto-Intelligence PC “S-739 
Experteach - Powerful, samples PC $ 339 
Exsys PC $ 309 
Runtime System PC $ 469 
Insight 2+ MS $ 379 
Intelligence/Compiler PC.a 439 
T.I. - PC Easy PC $ 435 


Personal Consultant Plus PC $2589 
Personal Consultant Runtime PC $ 85 
Turbo Expert-Startup-(400 rules) PC $ 129 

Corporate (4000 rules) PC $ 359 





Al-Lisp 


Microsoft MuLisp 85 MS $ 159 
PC Scheme LISP - by TI PC 3 8 
TransLISP - learn fast MS $ 89 
TransLISP PLUS 
Optional Unlimited Runtime $ 139 
PLUS for MSDOS $ 179 


Others: IQ LISP ($155), IQC LISP ($269) 


Al Prolog 


APT - Active Prolog Tutor - build 


applications interactively PC $ 49 
ARITY Prolog - Interpreter PC $ 229 
COMPILER/Interpreter-EXE PC $ 569 
Standard Prolog MS $ 77 
MicroProlog - Prof. Entry Level MS $ 85 
MicroProlog Prof. Comp./Interp. MS $ 439 
MPROLOG P550 PC $.199 
Prolog-86 - Learn Fast MS $ 89 
Prolog-86 Plus - Develop MS $ 229 


TURBO PROLOG by Borland PC $ 69 


Basic — 


BAS__C - economy MS $ 179 
BAS__PAS - economy MS $ 135 
Basic Development System PC. 3) 105 
Basic Development Tools PC $ 89 
Basic Windows by Syscom PO 298 
BetterBASIC PG 3. Ta 
Exim Toolkit - full PC $.-39 
Finally - by Komputerwerks PC $ 85 
Inside Track PC $30 
Mach 2 by MicroHelp PC. $35 
Peeks n Pokes Se es 
QuickBASIC PC $ 69 
Stay-Res RCS -i 
Turbo BASIC - by Borland PC ae 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about 
COD and POs. Formats: 3” laptop now available, plus 200 others. 
UPS surface shipping add $3/item. 


FREE Newsletter 


Insightful commentary, guest columnists, survey 
results, and valuable resource listings. Interviews, 
technical articles, predictions — even cartoons. No 
wonder 96% of our readers pass The Programmer’s 
Letter on to their friends; no wonder 72% make sure 
they get their copy back to keep for reference! You 
can request a FREE sample copy today by calling 


our toll-free number. A personal subscription is just 
$25 per year. 


Our Services: 
+ Programmer’s Referral List * Dealers Inquire 
* Compare Products + Newsletter 
* Help find a Publisher * Rush Order 
+ Evaluation Literature FREE * Over 700 products 
» BBS-7PMto7AM 617-740-2611 + National Accounts Center 


C Language-Compilers 


AZTEC C86 - Commercial PC $499 
C86 PLUS - by Cl MS $379 
Datalight C - fast compile, good code, 

4 models, Lattice compatible, Lib 


source. Dev’rs Kit PC $ 77 
Datalight Optimum - C MS $109 
with Light Tools by Blaise PC $168 
Lattice C - from Lattice MS $269 
Let’s C Combo Pack PC $ 99 
Let’s C re yo 


Microsoft C 4.0- Codeview MS $275 
Rex - C/86 by Systems & 
Software - standalone ROM MS $695 


Turbo C by Borland PC $ 69 
Uniware 68000/10/20 Cross 

Compiler MS Call 
Wizard C MS $299 


Rom Development Package MS $259 


C Language-interpreters 


C-terp by Gimpel - full K & R MS $219 
C Trainer - by Catalytix PC $ 89 
INSTANT C - Source debug, 

Edit to Run-3 seconds, .OBJs MS $369 


Interactive C by IMPACC Assoc. PC $209 
Run/C Professional MS $155 
Run/C Lite MS $ 79 
C Libraries-General 
Blackstar C Function Library PC $ 79 
C Essentials - 200 functions PC’$ 75 
C Function Library MS $109 
C Tools Plus (1 & 2) - Blaise PC $125 
C Utilities by Essential PC $129 


C Worthy Library - Complete, machine 
independent MS $249 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC $ 45 
Greenleaf Functions-portable, ASM $139 
LIGHT TOOLS by Blaise PC $ 69 


meal 


UI Programmer - Quickly generate 
dBASE User Interfaces, prototypes. Use 
supplied templates or create own. 

Pop-up help, bounce bar menus, screen 
forms. II, III, FoxBASE + , Quicksilver, 
Clipper. PC $249 





RECENT DISCOVERY 


CxPERT - Expert systems shell, 
translates to C code to integrate with your 
application. Certainty factors, explanations, 


inheritance, frames, help. MS $295 
dBASE Language 
Clipper compiler PC. Call 
dBASE II MS $329 
dBase III Plus PC $429 
dBASE III LanPack PC $649 


DBXL Interpreter by Word Tech PC $139 
FoxBASE+ - single user MS $349 
Quick Silver by Word Tech PC $499 


dBASE Support 





dBase Tools for C PC $ 65 
dBrief with Brief PC - Call 
DBC ISAM by Lattice MS Call 
dBx Translator to C MS $319 
dFlow - flowchart, xref MS Call 


Documentor - dFlow superset MS 
Genifer by Bytel-code generator MS $299 
QuickCode III Plus MS $239 


Fortran & Supporting 


: 


50:More FORTRAN PC $ 99 
ACS Time Series MS $399 
Forlib+ by Alpha MS $ 59 
MS Fortran - 4.0, full °77 MS $279 
No Limit - Fortran Scientific PC $115 
PC-Fortran Tools - xref, pprint PC $165 


RM/Fortran MS 
Scientific Subroutines - Matrix MS $139 


Multilanguage Support 


BTRIEVE ISAM MS $185 
BTRIEVE/N-multiuser MS $455 
Flash-Up Windows PC 3.79 
GSS Graphics Dev’t Toolkit Pe S375 
HALO Graphics PC $205 
Development Package MS $389 


Informix 4GL-application builder PC $789 
Informix SQL - ANSI standard PC $639 
Opt Tech Sort - sort, merge MS $119 


PANEL MS $215 
Pfinish - by Phoenix MS $229 
PolyLibrarian by Polytron MS $ 79 


PolyBoost - speed I/O, keyboard PC $ 69 
PVCS Corporate-source control MS $309 


QMake by Quilt Co. MS $ 79 
Report Option - for Xtrieve MS $109 
Screen Machine PC: 3.59 
Screen Sculptor PC $. 95 
SRMS - source control MS $109 
Synergy - create userinterfaces MS $375 
VXM - multi-env. link MS $195 


Xtrieve - organize database MS $199 
ZAP Communications - VT 100 PC $ 89 


NET-TOOLS - Access NETBIOS- 
compatible network systems from 
Microsoft C, Pascal, FORTRAN, 
Assembler, Lattice C. Full Source, 

PC $129 


No Royalties. 


We support MSDOS (not just compatibles), PCDOS, Xenix-86, CPM-80, Macintosh, Atari ST, and Amiga. 








8:30 AM-8:00 PM EST 





=a, HOURS Call for a catalog, literature, 
_ advice and service you can trust 
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“I like the way you do business. I ordered two program- 
ming packages from you and before I had time to won- 
der when I would receive them, they were on my desk. 
Good prices and fast delivery, - not a bad way to do 
business. - Thanks” Jeff Schropfer 
Bytrek 
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THE PROGRAMMERS SHOP 





provides complete information, advice, guarantees and every product for Microcomputer Programming. 


eR TE aa 


—— 


The First 


Automatic Knowledge 


Acquisition System 


List: $990 Our: $749 


Intelligence Ware. inc. 


9800 S. Sepulveda Bivd. Suite 730 
Los Angeles, CA 90045 
Telephone: [213] 417-8896; Fax [213] 417-8897 


———  yuues —— 


Now quickly and easily develop 
multi-tasking applications on your PC! 


Now get the speed, power and flexibility of MUMPS in a truly 
concurrent processing environment with COMP Computing 
Standard MUMPS (CCSM). 


CCSM provides the programmer with these benefits: 


* Save time and money by writing Applications in 1/3 to 1/45 
the amount of code. 


Fast data access with B-Tree File Structure and Automatic 
disk caching. 


Unlimited program size and variable space with advanced 
virtual memory system. 


100% portable from micros to minis to mainframes. 
Easily write multi-tasking and multiuser applications. 
And with MUMPS, all you need to do to start a background 


process is: "JOB “ROUTINE”. No memory allocation, no table 
set-up, no hassles; the system handles everything. 


CCSM is also available in a multi-tasking version for the 
Macintosh. 
Multi-Tasking: List- $149.95 Ours -$129 
Multiuser: List- $450.00 Ours - $369 


For a demonstration diskette of CCSM, send two dollars to the address below. 


MGlobal 1-800-257-8052 


1601 Westheimer, Suite 201 
MOUSON, Texas 77006 In Texas: 1-713-529-2576 


* 


* 


CIRCLE 303 ON READER SERVICE CARD 


Call Today for FREE detailed 


information or try Risk-Free for 31 days. 





800-421-8006 


HOURS: 8:30 A.M. - 8:00 P.M.E.S.T. 


WANT TO ADD 


WINDOWS, ICONS, FONTS, 
FAST GRAPHICS, DIALOG BOXES, 
PROCESS MANAGEMENT, AND 
DEVICE INDEPENDENCE 


TO YOUR IBM PC PROGRAMS? 


lf you have ever wished that you could develop stunning Macintosh-like programs on the IBM PC without 
the overhead of an enormous operating environment like Windows or GEM, then you need the 
SYNERGY DEVELOPMENT TOOLKIT, from Matrix Software. 


Using a memory resident runtime module only 20K in size (versus as much as 300K for Windows), you 
can develop applications with: overlapped and tiled windows; pull-down menus with half intensity options 
and automatic sizing; fast graphics function calls to draw shapes, lines, boxes, and create intricate fill 
patterns in both regular and irregular areas; have full device independence (drivers for numerous devices, 
including CGA, EGA and Hercules are included); sophisticated text input and output, with fonts in different 
Styles and sizes; full keyboard support (your programs won't need a mouse!) and powerful mouse support; 
and process management calls to efficiently manipulate system resources. 


The Toolkit has gateways to support the following languages: 
* Turbo Pascal * Microsoft & Lattice C 
* IBM/MS Pascal * Macro Assembler 


* Basic 
* dBASE II/IIl Compilers 


In addition, the Toolkit includes a powerful collection of tools including a graphics resource editor for 
developing your own icons and fonts. 


NEW! The Toolkit also includes a free copy of Synergy Layout, a revolutionary software 
development tool that dramatically increases your productivity by actually generating bug-free source code 
in Macro, C, and Turbo Pascal. 


For further information, contact Matrix Software at [617] 567-0037. 


List: $395 
Our: $349 
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SoftProbe II/TX, a High-Level Solution 
for Embedded System Debugging. 









SoftProbe Embedded 








FEATURES BENEFITS 
@ Source Level Debug @® Debug on Actual Target 
System 


@ Supports High Level 
Language Data Types 


@ C-like Command Language 
with Expression Evaluation 
and Flow Control 


@ Displays Program Execution 
Trace in High Level and 





@ Debug at High Level 
Language Level 


@ Mixed Language Debugging 
Facilitates Firmware Testing 


LANGUAGE SUPPORT 
RETESET AE A SR EOE SEE IA TTR 











Assembly Languages ec @PL/M @ASM 
@ Friendly User Interface with . 
Macros and On-line Help as) Shee & 
z 






TARGET SYSTEM 
@ Any iAPX-86/186 Based 


3303 Harbor Blivd., 
C-11, Costa Mesa, CA 92626 
System with a USART (714) 241-8650 FAX (714) 241-0377 


@ IBM PC or Compatible. List: $750 Ours: $695 


SoftProbe is a registered trademark of Systems & Software, Inc. 
IBM PC is a registered trademark of International Business Machines Corp. 











THE PROGRAMMER’S SHOP” 
Your complete source for software. services and answers 
5-D Pond Park Road, Hingham, MA 02043 
Mass: 800-442-8070 or 617-740-2510 2/87 
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Listing One (Listing continued, text begins on page 94.) 


215| vb_replace(c) 

ZUG |. of 

217) /* Overwrite the character at the current cursor 
218| * position without moving the cursor. 

219 | “7 

220 | 

221 | Regs.h.ah a) 3 
222 | Regs.h.al 

223 | Regs.h.bl 

224 | Regs.h.bh 0; 
225 | Regs.x.cx 1; 
226 | 

2271 int86( VIDEO INT, &Regs, &Regs ); 

228 | 

229 | 

230 | 

231 | 

232| vb_putchar( c ) 

233 | 

234 | Write a character to the screen in TTY mode. 

235 | Only normal printing characters, BS, BEL, CR and 
236 | LF are recognized. The cursor is automatically 
237| advanced and lines will wrap. 

238 | «/ 

239 | 


write c 

Normal characters 
Display page 0 

# of times to write 


if( !move_cur ) 
posn = vb_getcur(); 


while( *str ) 
vb_putchar( *str++ ); 


if( !move_cur ) 
vb_setcur( posn ); 


vb_getchar () 


~s 
»* 


Get a character with a direct video bios call. 
This routine can be used to complement stderr as 
it can be used to get characters from the keyboard, 
even when input redirected. The typed character 

is returned in the low byte of the returned 
integer, the high byte holds the auxillary byte 
used to mark ALT keys and such. See the Technical 
Reference for more info. 


/ 


Regs.h.ah = 0 ; 


+ + + + + # HF 


240 | Regs.h.bl = 0x07; 
241 | Regs.h.al = ¢c; 
242 | Regs.h.ah = WRITE TTY ; 


243 | int86( VIDEO_INT, &Regs, &Regs ); 


244 | 

245 | 

246 | 

247 | 

248| vb _puts( str, move_cur ) 
249| register char *str; 
2501 { 


251 /* Write a string to the screen in TTY mode. If 
252 | * move cur is true the cursor is left at the end } 


int86( KB INT, &Regs, é&Regs ); 
return( (int)Regs.x.ax ); 


#ifdef MAIN 


main () 


{ 


vb_replace( 
vb_putchar(‘\n'}; 
vb _putchar('\r'); 


253 | * of string. If not the cursor will be restored to 


254 | * its original position (before the write). 
mf 


295'| 
256 | 
257| register int posn; 


- 
gee SURE 





De ye 


With Vitamin C, your applications come 
alive with windows that explode into view! 
Data entry windows and menus become a 
snap. Vitamin C’s open ended design is 
full of ‘“hooks’’so you can ‘’plug in’’ spe- 
cial handlers to customize most routines. 
Of course, Vitamin C includes all source 


code FREE, with no hidden charges. /t 


always has. 





Mite we 


Create windows with one easy function.. 
Vitamin C automatically takes care of com- 
plicated tasks like saving and restoring the 
area under a window. 

Options include titles, borders, colors, 
pop-up, pull-down, zoom-in, scroll bars, 
sizes to 32k, and more. Unique built-in 
feature lets users move and resize windows 
at run-time! 


Data Entry 





Flexible dBase-like data entry and display 
routines feature protected, invisible, re- 
quired, and scrolling fields, picture clause 
formatting, full color/attribute control, selec- 
tion sets, single field and full screen input, 
and unlimited validation via standard and 
user definable routines. 
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#endif 


VITAMIN ( 


It’s good for your system! 





Bl ec cuca 


Standard help handler provides context 
sensitive pop-up help messages any time the 
program awaits key strokes. So easy to use 
that a single function initializes and services 
requests by opening a window, locating, for- 
matting, displaying and paging through the 
message. 

Multi-level MacIntosh & Lotus style 
menus make user interfaces and front ends 
a snap. Menus can call other menus, func- 
tions, even data entry screens quickly and 
easily. 

Text editor windows can be opened for 
pop-up note pads and general purpose 
editing. Features include insert, delete, word 
wrap, justify, cut, paste, search, and more! 


ea 





With VCScreen and Vitamin C working 
together, you'll reach a new level or produc- 
tivity you can’t reach with a function library 
alone! 

VCScreen speeds development even more! 
The interactive screen editor actually lets you 
draw input, output and constant fields, 
headings, boxes, lines, even a window for 
your froms to run in. 

VCScreen generates readable C source 
code ready to ‘plug in’ to your application 
and link with Vitamin C. 


Oe he 


End Listing One 
(Listing Two begins on page 80. ) 





_ Guarantee : _ 


Better than a brochure. More than a demo 
disk. If you’re not satisfied, simply return the 
package within 30 days and receive a full 
refund of the purchase price. 

Wiha ta ct atest fore et HS: $225.00 

Includes ready to use libraries, tutorial, 
reference manual, demo, sample and 
example programs, and quick reference 
card; for IBM PC and compatibles. Specify 
compiler and version when ordering. 
Vito © Source, oF. ce es FREE* 

*Free with purchase of Vitamin C. 


VGSEIOEN 5 ae ir SS $99.95 
Requires Vitamin C and IBM PC/XT/AT or true 
compatible. 

Shipping $3 ground, $6 2-day air, $20 over- 
night, $30 overseas. Visa and Master Card 
accepted. All funds must be U.S. dollars 


drawn on U.S. bank. Texas residents add 
7Vs% sales tax. 


(214) 416-6447 


( PROGRAMMING 


Creative Programming Consultants, Inc. 
Box 112097 Carrollton, Texas 75011 
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Publication Quality 
Scientific Graphics 


Over 100 C routines make 


scientific plotting easy 


linear, log, & polar plots 
bar charts & Smith charts 
contour plots with labels 
3-D curves, 3-D surfaces 
4 curve types, 8 markers, errorbars 
> 14 fonts, font editor 
unlimited levels of SUP&’scripts 
> 4096 x 3120 resolution in 16 colors 
on EGA, Tecmar, Sigma boards 
-> Zoom, pan, window and merce plots 
-> high resolution printer dumps 


SOURCE INCLUDED for persona/ use only 
$350. Demo $8 


256k, IBM, AT&T, Corona PCs, DOS 2okM, 3.%X 
Most boards, printers, and plotters supported 
Microsoft, Lattice, DeSrnet, Aztec, C86 compilers 


, sin{xJeos{x-y]) 
Polar Plot lest 3 


xxii) \\\ 1b, 
AA r\) x) 
\ RES, ) 
KA AN ianet Zant 
POR 
KX\ Lk Wiis 
We 


AR 
O WAAL 
ANN 


scientific Endeavors Corporation 
Route 4, Box 7S Kingston, TN 37763 (615) 376-4146 








386|DEBUG 


¢ A symbolic debugger for 80386 32-bit 
protected mode programs which run 
under Phar Lap’s 386 | DOS-Extender™ 


¢ Breakpoints, data watchpoints, and built-in 
disassembler 


Fully compatible with Phar Lap’s 386|ASM/LINK, 
the MetaWare 80386 High C™ and Professional 
Pascal™compilers, and the Green Hills 80386 
Fortran compiler 


Runs on all DOS-based PCs equipped with an 
80386 CPU, including the Compaq® DESKPRO 
386”, the IBM®PS/2™ Model 80, and most 
accelerator cards, including the Intel Inboard™ 
S86/AT 


¢ $195—Available today 


(617) 661-1510 


Phar Lap Software, Inc. 
60 Aberdeen Ave. 
Cambridge, MA 02138 


“The 80386 Software Experts” 
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copy protection and 
customer satisfaction? 


here's a better way to protect your software. 


It's called the Secom Key, and it works, 

(J The Key is completely transparent to the 
end user. 

[_] Won't interfere with peripheral operations. 

[_} Doesn't occupy the disk drive. 

(_} The Key allows unlimited backup copies. 

[_] Makes site licensing easy and auditable. 

[_} Easily installed, Uses only 1000 bytes. 

[_} Over 60,000 have been sold worldwide. 

[_} Same size as RS-232 plug. 

[_} Available in quantities for as low as $19.95. 





Or more information, contact 


Secom Information Products Co. 


500 Franklin Square 
1829 East Franklin Street 
Chapel Hill, NC 27707 


The Secom Key... 
for real 

software 
protection. 


Secom Information Products Company 


A Subsidiary of Secom General Corporation 


Call Toll-free 1-800-843-0413 
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FLASH UP YOUR PROGRAMS. WITH 


CHEST 





POPSCREEN. 


SCREEN GENERATOR / WINDOW MANAGER 


INTEGRAL WINDOWS FOR 
TURBO PASCAL 


QUICKBASIC - DBASE Ill+ 


NO RESIDENT LOADERS - NO SATELITE DISPLAY FILES 
PopScreen compresses your windows, menus, & displays into 
compact library modules, inline code, or .bin files customized to 
your language. (Average size only 100 - 300 bytes) It all links 
integrally into your program at compile or link time.. 


POWERFUL BUT SIMPLE DESIGNING PROGRAM .- Design 
your displays and windows onscreen, while you see them. 
PopScreen gives you easy boxes, complete character graphics 
control, block moves, superimpose, boilerplating, etc. Manual, ten 
minute tutorial, and sample programs included. 


INSTANT SCREEN LOADING - Professional looking windows 
open and close simply. Displays pop to the screen in .015 seconds. 
Your screenwork is easy, fast, and versatile with PopScreen. 


POPSCREEN INSTALLS TO SUPPORT: 

C: IBM, MICROSOFT, LATTICE (all memory models) 
ASSEMBLER (PopScreen will output assembly code) 

PASCAL: TURBO (inline code), IBM, MICROSOFT 
QUICKBASIC (library modules); DBASE Ill+ (loadable .bin files) 


POPSCREEN, only $39.95 


BaySoft, Box 6562-D, Albany, Ca. 94706 415-527-3300 


SEND NO MONEY 
ASK FOR 3 WEEK FREE TRIAL 
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MACH 2— 


INTERACTIVE ASSEMBLY AND FORTH DEVELOPMENT SYSTEM 
FOR 68000/68020/68881 PROCESSORS 





Mach2 for the Macintosh and Mac Il 
Also available for: OS-9/68000 and Industrial Boards 


Interactive access to all Mac ROM routines. 








Easy generation of standalone Mac applications. 


Standard infix 68000/68020/6888 1 assembler. 


Fast subroutine-threaded Forth83 implementation. 


For more information, 


call or write today: 
(415) 854-7994 e (800) 44FORTH 
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Palo Alto Shipping Company 
P.O. Box 7430 ¢ Menlo Park, CA 94026 


e & 
Listing Two 
(Text begins on page 94. } 
Listing 2 -- /include/box.h 
L | [Beer a rn rn re ne er * 
2)°—~* 3en |. Copyright (c) 1987, Allen I. Holub. 
3{.-% All rights reserved. 
Bie cee 
5| * #defines for the box-drawing characters on the IBM PC. 
6 * 
Pere, clea ac del ® Cie! Se We re as eee ; 
SF The names are: 
af. ** 
10|->* UL Upper left corner 
AE =" UR Upper right corner 
bea * LL lower left corner 
Se LR lower right corner 
T4:|-- 4% CEN Center (intersection of two lines) 
ES{--*# TOP Tee with the flat piece on top 
£ef <2 BOT Bottom tee 
Li -* LEFT Left tee 
1S]. * RIGHT Right tee 
19| * HORIZ Horizontal line 
207... * VERT Vertical line. 
at} * 
wet * 
23 | ¥ UL =P = UR HORIZ 
24\. .* | 
es.) * L R Vv 
26 | a E | I E 
ehite '® r= -CEN- =—=G R 
28 | a £ | H D 
aets.% | T 
sot. * | 
34] -* LL -BOT=- LR 
SA 
S34 ae 
34| * The D Xxx defines have double horizontal and vertical lines 
35| * The HD XxX defines have double horizontal lines only 
36| * The VD_XXX defines have double vertial lines only 
SEs 
38| * If your terminal is not IBM compatible, #define all of these 
39| * as '+', except for the VERT #defines, which should be a |}, 
40| * and the HORIZ #defines, which should be a -. 
4i} */ 
42 | 
43| #define VERT 179 
44| #define RIGHT 180 
45| #define UR 191 
46| #define LL 192 
47| #define BOT 193 
48| #define TOP 194 
49| #define LEFT 195 
50| #define HORIZ 196 
51| #define CEN 197 
52| #define LR 217 
53| #define UL 218 
54 | 
55| #define D VERT 186 
56| #define D_ RIGHT 185 
57| #define D_UR 187 
58| #define D_LL 200 
59| #define D_BOT 202 
60| #define D_TOP 203 
61| #define D_LEFT 204 
62| #define D HORIZ 205 
63| #define D_CEN 206 
64| #define D_LR 188 
65| #define D_UL 201 
66 | 
67| #define HD VERT 179 
68| #define HD RIGHT 181 
69| #define HD UR 184 
70| #define HD LL ede 
71| #define HD BOT 207 
72| #define HD TOP 209 
73| #define HD LEFT 198 
74| #define HD HORIZ 205 
75| #define HD CEN 216 
76| #define HD LR 190 
77| #define HD UL 213 
78 | 
79| #define VD_VERT 186 
80| #define VD RIGHT 182 
81| #define VD_UR 183 
82| #define VD_LL 211 
83| #define VD BOT 208 
84| #define VD_TOP 210 
85| #define VD LEFT 199 
86| #define VD_HORIZ 196 
87| #define VD CEN Zi5 
88| #define VD LR 189 
89| #define VD_UL 214 
End Listing Two 
e es 
Listing Three 
Listing 3 -- /include/curses.h 
L | [8 eee ee * 
21 * CURSES.H Copyright (c) 1987, Allen I. Holub. * 
at. All rights reserved. . 
4] 8 sews hw ye hs we Oe ws rt a et tw oe @& rw Oe 0 om os en ee en on a ee ee 0 is ee 0 as i ee x 
Sho. FF 
6 | 
7| typedef struct 
8| { 
9 | int x_org; /* X coordinate of upper-left corner x/ 
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10| int -y: org; /* Y coordinate of upper-left corner x/ 
11| int x size; /* Horizontal size of text area. a} 
12 | int y size; /* Vertical size of text area. * / 
13 | int row; /* Current cursor row (0 to y size-1) x / 
14| int col; /* Current cursor column (0 to x size-1)*/ 
15] int scroll _ ok’ /* Scrolling permitted in this window */ 
16| } 

17| WINDOW; 

18 | 

19| # define bool unsigned int 

20| # define reg register 

21| # define TRUE (1) 

22| # define FALSE (0) 

23| # define ERR (0) 

24| # define OK (1) 

25 | 

26| /[*----- nn - - -- -- -  - -- - - -- - - - -- - - = - -- - - = = = - = + + ++ 
27| * Reminder: The comma opperator goes left to right and 

28{ * evaluates to the rightmost thing in the list. 
29| * 

30| * The following macros implement many of the curses functions 
31| * note that stdscr only has meaning when passed to getyx. 
32|  *-----------------------------------------------------+------ 
33| */ 

34 | 

35| #define stdscr 0 

36| 

37| #define getyx(win,y,x) (win 2? ((x)=win->col, (y)=win->row) \ 
38 | : getpos (&x, &y) ) 

39| 

40| #define mvinch(y,x) ( move { -y,x), ingh.t.) ) 

41| #define mvwinch(w,y,x) ( wmove(w,y,x), winch(w) ) 

42 | 

43| #define addch(c) putchar (c) 

44| #define endwin() 

45| #define erase() clear () 

46| #define initscr() 

47| #define printw printf 


48| #define refresh () 
49| #define scroll(w) 
50| #define scrollok (win, flag) 
51| #define subwin(w,a,b,c,d) 


wscroll(w,1); 
((win)->scroll_ok = (flag)) 
newwin(a,b,c,d) 


52| #define wclear werase 

53| #define wrefresh(win) 

54 | 

55| /*------------------ -- -- - -- -- -- -- - -- -- -- -- + --  - ee ee */ 
56| 


WINDOW *newwin 
int box 


57| extern 
58| extern 


(int int .,int ,int 5; 
(WINDOW *,int ,int ); 


59| extern int clear (void); 
60| extern int crmode (void); 
61| extern int echo (void); 
62| extern int getch (void); 
63| extern int move Gin. int*)}: 
64| extern int nl (void); 
65| extern int nocrmode (void); 
66| extern int noecho (void); 
67| extern int nonl (void); 
68| extern int waddch (WINDOW *, int ); 
69| extern int waddstr (WINDOW *, char *); 
70| extern int wcelrtoeol (WINDOW * ); 
71| extern int werase (WINDOW * : 
72| extern int wgetch (WINDOW * ¥: 
73| extern int wmove (WINDOW *, int 7 int: ):: 
74| extern int wprintw (WINDOW *, char *,... ): 
75| extern int wscroll (WINDOW *, int ); 
End Listing Three 
6 S 
Listing Four 
Listing 4 -- curses.c 
1| #include <stdio.h> 
2| #include <ctype.h> 
3| #include <curses.h> /* routines in this file. x / 
4| #include <box.h> /* of IBM box-drawing characters ¥/ 
S| #include <stdarg.h> /* va_list and va_start (ANSI) ~y 
6| 
DV | [Reeeee nnn n nn - - - - - - - - - = = - - - +--+ ee * 
8| * CURSES.C: Copyright (c) 1987, Allen I. Holub. * 
9} * All rights reserved. * 
10| * enn ne  - - - - - - -- - - - 5 e+ * 
at 
12| * This file is a DOS implementation of some of the Unix 
13| * CURSES functions. It is Unix compatible but is a proper 
14| * subset, not a full implementation, of curses. It works 
15| * on the IBM-PC. In all of these y is the row number and 
16| * x is the column number. The upper left corner is (0,0): 
Ti) ae 
18| * I/O functions ------------------------------------------ 
TO} .*% 
20| * waddch( win, ch ) Works like putc() 
21| =* waddstr( win, str) Works like puts() 
22| * wprintw(win, fmt,arg...) Like printf but writes to the 
23 fr ut indicated window. 
24| * wrefresh (win) See below. 
25| * box(win, vert, horiz) Draws a box around the window. 
26| * 
27| * Cursor movement and screen control --------------------- 
28] * 
29| * werase (win) erase the entire window 
30] * welrtoeol (win) erase from cursor position to the end 
32h soe of line 
| * 


(continued on next page) 
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What if each change 
you made to your 
program was ready to ™ 
test in seconds instead 
of minutes? 


“The SLR tools will change the 
way you write code. I don’t use 


anything else.” , Joe Wright 


RELOCATING MACRO ASSEMBLERS @ Z80 e 8085 e HD64180 
e Generates COM, Intel HEX, Microsoft REL, or SLR REL 
e Intel macro facility 
e All M80 pseudo ops 
© Multiple assemblies via command line or indirect command file 
e Alternate user number search 
e ZCPR3 and CP/M Plus error flag support, CP/M 2.2 submit 
abort 
© Over 30 user configurable options 
e Descriptive error messages 
e XREF and Symbol tables 
© 16 significant characters on labels (even externals) 


e Time and Date in listing 
e Nested conditionals and INCLUDE files $ 49 O45 
requires Z80 CP/M compatible systems with at least 32K TPA 


___§ LR_Svstems 


1622 N. Main St., Butler, PA 16001 
(412) 282-0864 (800) 833-3061 
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Get Fecal. 


Get real productive with REAL-TOOLS, a 
general purpose set of “C” development 
tools for UNIX™ and XENIX™. 


Get Graphics Too! [n addition to 
an advanced screen management system 
and superior windowing capabilities, REAL- 
TOOLS offers user-defined graphics for 
you to draw, save, recall, copy and animate 
symbols and panels. 















So if you're developing applications for the 
real world — get real productive. Get 
graphics. Get REAL-TOOLS. 


i 


$99 Binary only. $549 Library source. $999 Complete source. 


PCu 


Pioneering Controls Technologies, Inc. 
510 Bering Drive, Suite 300, Houston, Texas 77057 
(713) 266-8649 
™REAL-TOOLS is a trademark of Pioneering Controls Technologies, Inc. 


™UNIX is a trademark of AT&T 
™XENIX is a trademark of Microsoft Corporation. 
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er Y Noy We 
SOURCE FOR C 


- Canadian Sales 
- Canadian Service 
- Canadian Technical Support 
- Canadian Product Knowledge 


We specialize in programming & development software 


LIFEBOAT « LATTICE * GREENLEAF « PHOENIX 
SOFTCRAFT « MICROSOFT ¢ BLAISE « ESSENTIAL 
AGE OF REASON « DESMET « AZTEC 
MARK WILLIAMS « GIMPEL ¢ ROUNDHILL « GSS 
HALO « FAIRCOM « RAIMA « INTEL ¢ etc. « etc. « 


“er Call for full price list—Dealer enquiries welcome = 


We know our products—we use them! 


SCANTEL SYSTEMS LTD. 
801 York Mills Rd., Don Mills, Ont., M3B 1X7 
(416) 449-9252 
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SCIENTIFIC/ENGINEERING 


GRAPHIC TOOLS 
for the IBM PC and compatibles 


FORTRAN/Pascal tools: GRAFMATIC (screen graphics) 
and PLOTMATIC (pen plotter driver) 


These packages provide 2D and 3D plotting capabilities 
for programmers writing in a variety of FORTRAN/Pascal 
environments. We support MS, R-M, LAHEY FORTRAN 
and more. PLOTMATIC supports HP or Houston Instru- 
ment plotters. Font module available too! 

Don’t want to program? Just ask for OMNIPLOT! Menu- 
driven, fully documented integrated scientific graphics. 
Write or call for complete information and ordering in 
structions. 


GRAFMATIC—PLOTMATIC—OMNIPLOT [S] & [P] 


10.0 100. 0 1000. 0 
100 


60 


(ZH) AININOIS4 


CONCENTRATION 





TIME (sec) 
Microcompatibles, 301 Prelude Drive, Silver Spring, MD 20901 
(301) 593-0683 
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C CHEST 


Listing Four 
(Listing continued, text begins on page 94. ) 


33 | 
34 | 
35 | 
36 | 
37 | 
38 | 
39 | 
40| 
41| 
42 | 
43 | 
44 | 
45| 
46 | 
47 | 
48 | 
49 | 
50| 
52 
52 | 
53 | 
54 | 
55: 
56 | 
S7| 
58 | 
59 | 
60 | 
61 | 
62 | 
63 | 
64 | 
65] 
66 | 
67 | 
68 | 
69 | 
70 | 
71 
Fei 
73 | 
74 | 
433 
76 | 
77 | 
78 | 
S| 
80 | 
81| 
82 | 
83 | 
84 | 
85 | 
86 | 
87 | 
88 | 
89 | 
90 | 
91 | 
32] 
93 | 
94 | 
95 | 
96 | 
97 | 
98 | 
99 | 
100| 
101 | 
102 | 
103| 
104 | 
105| 
106| 


107 | 
108 | 
109 | 
110| 
111] 
LEZ] 
123! | 
114 | 
Lis 
116| 
127] 
118 | 
119] 
120| 
1214 
122 | 
123 | 
124 | 
125.1 
126| 
127| 
128 | 
129] 
130| 
PSL | 
132 | 
133 | 
134 | 
135 | 
136| 


x 
* 
* 
x 
* 
x 
* 
x 
* 
x 
* 
* 
* 
x 
* 
x 
x 
x 
* 
x 
* 
* 
x 
* 
x 
x 
* 
x 
* 
x 
x 
x 
* 
x 
x 
* 
x 
* 
* 
x 
x 
* 
x 
* 
*« 
*x 
x 
* 
x 


wmove (win, y,x) Move the cursor to postion (y,x) rela- 
tive to the orgin of the indicated window. 


getxy (win, y, x) MACRO: puts the current cursor postion 
into y and x. Note that this is a macro, 
don't put an & in front of y and x in 
the invocation. 


wgetch (win) works like getchar but echos to the 
indicated window. If crmode is 
inactive, it is activated for the 
duration of this subroutine. 


scroll (win) Scrolls the window up one line. 

wscroll( win, amt ) NOT A CURSES FUNCTION. Scrolls 
window by indicated amount. A 
negaitve amt scrolls down. 


Indtialization stall -—-—<---<=-<-<-— eS ee 


initesecr () Initialize 

endwin () Clean up 

scrollok(win, flag); enable/disable scrolling for window. 
newwin (lines, cols,begin_y,begin_x) Create a new window. 


Terminal control ------<---<----<<----9--- 95-9999 
Because of the perversities of DOS, these work in a 
slightly nonstandard way. In particular echo,noecho, 
nl, and nonl only work if crmode() is active. 
Moreover, they are ignored for the non-w fundtions. 
For portability reasons, it's best to always set 
crmode() at the top of your program. 


crmode(); Turn off input buffering. 
nocrmode() ; Turn it back on again. (default) 
noecho () ; Turn off automatic echo. 

echo (); Turn it back on again. (default) 
nl(); Turn on CR-NL mapping (default) 
nonl(); turn it off again. 


Functions that affect the whole screen. ------------------ 


move (y,X) move cursor to abs. position (y,x) 
addch (c) Write a character. 

clear () Clear the screen 

printw() works like printf 

getch() get a character from the keyboard. 
refresh () See below. 


The real curses keeps an two internal representations of 
the screen, when you change something it just modifies 
one of these reprsentations. You must issue a refresh() 
or wrefresh() call to actually modify the screen. My 
version of curses refreshes the screen immediately after 
every write. refresh() and wrefresh() macros have been 
provided for UNIX compatability, however. These macros 
don't do anything, but you should scatter them liberally 
about your code if you want it to be portable. 


I've corrected one bug in the real curses that might 
cause problems when you port your code. The real curses 
(at least the one at Berkeley), doesn't scroll properly 
in that it leaves junk on the bottom line of the window 
after a scroll. I've corrected the problem here but, 
again, if you want real portability you should do a 
wclrtoeol(win) after every scroll. Unfortunately, there's 
no way to determine that the screen has scrolled without 
actually keeping track of the characters that are written 
to the screen. Ugh. 


Other differences: curses doesn't know about characters 
that it hasn't actually put on the screen with an addch(). 
So, if echo is enabled, curses won't erase the echoed 


characters when it scrolls the screen and so forth. The 
curses presented here doesn't exibit this behaviour, but 
if you want compatablility with Unix, turn off echo (with 
a noecho() call) and then echo all characters yourself. 


The purpose of the four #defines immediately below is to 
make it easy to modify this package. They all map function 
calls to video-bios subroutines [vb_xxx({)]. If you want to 
use your own functions (that do direct video access or send 
out escape sequences to a normal terminal, for example) 
just change the #defines and recompile. The functions must 
behave as follows: 


cmove (y, x) Move the cursor to position (y,x) (y is row) 
where (0,0) is the upper-left corner of the 
screen. 


curpos(y,x) Put the (y,x) cursor position into the 
integers pointed to by y and x. 

replace (c) Print c at the current cursor position without 
moving the cursor. This routine must be able 
to put a character into the 80th column 
without scrolling the screen or wrapping 
around. 


doscroll(l,r,t,b,a) Scroll a region of the screenwith the 
top left corner at (t,1) and thebottom 
right corner at (b,r). "a" is the number of 
lines to scroll (up if a is positive, down if 
it's negative). 


(continued on page 89) 
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On Command: 
Writing A Unix-Like Shell for 
MS-DOS 


by Allen Holub 


This book and ready-to-use program demonstrate 
how to write a Unix-like shell for MS-DOS. On Command 
includes an enhanced, working version of Holub’s pop- 
ular Unix-like shell, along with a detailed description 
of the Shell and complete C source code. 

The techniques you'll learn are applicable not only 
to MS-DOS, but to most other programming environments 
as well. 

You'll find how to do interpretive control flow in any 
C program, a thorough discussion of low-level DOS 
interfacing and significant examples of C programming 
at the system level. 

The Shell’s supported features include: read, editing, 
aliases, history, redirection and pipes, Unix-like com- 
mand syntax, DOS- compatible prompt support, and 
C-Shell-based shell scripts. A new Shell variable expands 
to the contents of a file so a program can produce text 
that is used by Shell scripts. 

The Unix-like control flow includes: if/then/else; 
while; foreach; switch/case; break; continue. 

The ready-to-use program and all C source code 
are included on disk. The Shell works on IBM PC’s 
and compatibles. 


/Util When used with the shell, this collection of utility 
programs and subroutines provide you with a fully func- 
tional subset of the Unix environment! Utilities include: 
cat; cp; date; du; echo; grep; ls; mkdir; mv; p; pause; 
printevn; rm; rmdir; sub; and chmod. Complete source 
code and manual are included. 


Receive On Command together with /Util for only $59.95! 


On Command Item #163 $39.95 
/Util Item #161 $29.95 
On Command with /Util Item #164 $59.95 
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Bring the Convenience of Unix-Like 
Features to Your MS-DOS Machine 


¥ 
NR: a 


An 
Implementation 
of the Unix NROFF 
Word Processor 


by Allen Holub 





Nr: An Nroff-like Text 
Formatter for MS-DOS 


Nr is an expanded version of the text formatter described 
in Dr. Dobb’s February through April 1987 issues. Nr is 
written in C and is compatible with the Unix Nroff. You'll 
tind complete implementation of the -ms macro pack- 
age, and an in-depth description of how -ms works. 


Nr does hyphenation and simple proportional spacing. 
It supports automatic Table of Contents and Index gen- 
eration, automatic footnotes and endnotes, italics, bold- 
face, overstriking, understriking, and left and right 
margin adjustment. Nr also contains: 


¢ extensive macro & string capability 

¢ number registers in various formats including 
roman numerals and arabic, spelled out and in 
outline form 

¢ diversions and diversion traps 

¢ input and output line traps 


Nr comes configured for any Diablo-compatible printer, 
and Hewlett Packard's ThinkJet and LaserJet. It is easily 
configurable for most other printers and comes with full 
source code so that you can make it work with your 
system. For PC compatibles. 


Nr Item #165 


$29.95 
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Small-Windows: 
A Windowing Library 


mall- Windows is a complete win- 

dowing library for C and Small-C. 
The package contains: 18 video func- 
tions written in assembly language; 
7 menu functions that support both 
static and pop-up menus; and 41 win- 
dow functions, including functions to 
clean, frame, move, hide, show, scroll, 
push, and pop windows. A file direc- 
tory facility illustrates the use of the 
window menu functions and provides 
file selection, renaming and deletion 
capability. Two test programs are also 
included. For PC/MS-DOS systems, 
and Microsoft C Version 4.0 and 
Small-C compilers. Documentation 
and full source code is included. 


Small-Windows Item #109 $29.95 


Small-Tools: 
Programs for 
Text Processing 


hese Small-C programs perform 

specific, modular operations on 
text files, including: editing, format- 
ting, sorting, merging, listing, printing, 
searching, changing, transliterating, 
copying, concatenating, encrypting 
and decrypting, and more. Supplied 
as source code. With the Smal//-C 
Compiler you can select and adapt 
these tools to meet your own needs. 
Documentation is included. 


Small-Tools Item #010A 






$29.95 
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Small-C Compiler & 
Small-C Handbook 


fits a home-study course in com- 
piler design, the Small-C Compiler 
and the Smal/-C Handbook provide 
everything you need for learning how 
compilers are constructed, and for 
learning C at its most fundamental 
level. Full source code is included. 


CP/M Small-C Compiler with 
Handbook 


Item #006B $37.90 
MS/PC-DOS Small-C Compiler with 
Handbook and Addendum 

Item #006C $42.90 


Small-Mac: 
An Assembler 
for Small-C 


Te assembler includes: a 
simplified macro facility, C lan- 
guage expression operators, object 
file visibility, descriptive error mes- 
sages, and an externally defined instruc- 
tion table. You'll receive the macro 
assembler, linkage editor, load-and- 
go loader, library manager, CPU config- 
uration utility, and a utility to dump 
relocatable files. Documentation is 
included. For CP/M systems only. 


Small-Mac Item #012A $29.95 


C Disk Formats 

Please indicate MS/PC-DOS or 
CP/M. For CP/M specify: Apple, 
Osborne, Kaypro, Zenith Z-100 
DS/DD, 8” SS/SD. 
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Dobb's 
Toolbook of C 


7 authoritative reference contains 
over 700 pages of the best C articles 
and source code from Dr. Dobb’s Journal, 
along with new material by C experts. 
The level is sophisticated and prag- 
matic, appropriate for professional C 
programmers. You'll find hundreds of 
pages of valuable C source code, 
including a complete compiler, an 
assembler, and text processing 
utilities. 
Toolbook of C 


Item #005 $29.95 


Special Packages 


Save over $27! 

Receive: Dr. Dobb's Toolbook of C, 
The Small-C Handbook and Small-C 
Compiler, Small-Mac Assembler, and 
Small-Tools Text Processing Programs. 


Only $99.95! 


CP/M Package Item #005A $99.95 


Save $22! 

Receive: Dr. Dobb's Toolbook of C, 
The Small-C Handbook and MS/PC- 
DOS Addendum, Small-C Compiler, 
Small-Tools Text Processing Programs 
and Small Windows. Only $109.95! 
Specify Microsoft C Version 4.0 or 
Small-C compiler. 


MS/PC-DOS Package 


Item #005W $109.95 
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BY BRIAN R. ANDERSON 
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Assembly Language Programming 
for the 68000 & Z80 


Dr. Dobb's Toolbook 
of 68000 Programming 


his complete collection of practical programming tips and techniques for the 
68000 family includes the best articles on 68000 programming ever published 
in Dr. Dobb's, along with much new material. 

Contents include: 


An Introduction to the 68000 Family 
e 68000 Instruction Set 


Development Tools 
e Bringing Up the 68000: A First Step 
e A 68000 Cross- Assembler 


Useful 68000 Routines and Techniques 
e A Simple Multitasking Kernel for Real-Time Applications 
e The Worm Memory Test 
¢ A Mandelbrot Program for the Macintosh 


All programs are also available on disk! 

68000 Toolbook Item #040 $29.95 
68000 Toolbook with disk Item #041 $49.95 
Specify MS-DOS, CP/M, CP/M 8” Osborne, Macintosh, Amiga, Atari 520st. 





68000 Cross Assembler 


n executable version of the 68000 Cross- Assembler discussed in the book 
is also available, complete with source code and documentation. Requires 


CP/M 2.2 with 64k or MS-DOS with 128k. 


68000 Cross Assembler Item #042 $25.00 
Specify 8” SS/SD, Osborne, or MS-DOS. 





a 


Dr. Dobb’s Z80 Toolbook 


by David E. Cortesi 


5 r. Dobb's Z80 Toolbook puts the power of assembly language in the hands of 
anyone who's done a little programming. You'll find: 


e A method of designing programs and coding them in assembly language 
and a demonstration of the method in the construction of several complete, 
useful programs. 


e A complete, integrated toolkit of subroutines for arithmetic, string-hand- 
ling, and total control of the CP/M file system. 


¢ Every line of the toolkit’s source code is there for you to read. 


All the software—the programs plus the entire toolkit, both as source code and 
object modules for both CP/M 2.2 and CP/M Plus—is yours on disk. Most of the 
programs are included in the book, however, the disk is necessary for complete 
listings. A DRI RMAC assembler or equivalent is required. 


Dr. Dobb's Z80 Toolbook Item #022 $25 
Dr. Dobb's Z80 Toolbook with disk Item #022A $40 
Specify 8” SS/SD, Apple, Osborne or Kaypro. 
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Turbo Puscal Tools 


TURBO 
ADVANTAGE 


TURBO 
Advantage: 


Source Code Library 
for Turbo Pascal 


his library of more than 220 routines— 

complete with source code, sample 
programs and documentation—will 
save you hours of work developing 
and optimizing your programs! 


Routines are organized and docu- 
mented under the following categories: 
bit manipulation, file management, 
MS-DOS support, sorting, string 
operations, arithmetic calculations, 
data compression, differential equa- 
tions, Fourier analysis and synthesis, 
matrices and vectors, statistics, and 
much more! All source code is included. 


A detailed manual includes a descrip- 
tion of the routine, an explanation of 
the methods used, the calling sequence, 
and a simple example. For MS/PC- 
DOS systems. 


TURBO Advantage: Source Code 
Libraries for Turbo Pascal is also 
available with TURBO Advantage 
Complex: Complex Number Routines 
for Turbo Pascal and TURBO Advan- 
tage Display: Form Generator for 
Turbo Pascal. 


Turbo Advantage Item #070 $49.95 
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TURBO 
ADVANTAGE 
COMPLEX 


TURBO 
Advantage 
Complex: 


Complex Number Routines 
for Turbo Pascal 


Were with complex numbers is 
easy with the Turbo Pascal pro- 


cedures and routines provided in 


TURBO Advantage Complex! 


TURBO Complex provides procedures 
for performing all the arithmetic oper- 
ations and necessary real functions 
with complex numbers. Each pro- 
cedure is based on predefined con- 
stants and types. By using these 
declarations the size of arrays are 
easily adapted. Each type declaration 
is a record with both a real and imagi- 
nary part. Use these procedures to 
build more sophisticated functions in 
your own programs. 





TURBO Complex also demonstrates 
the usage of these procedures in rou- 
tines for vector and matrix calculation 
with complex numbers and variables; 
simultaneous Fourier transforms; cal- 
culations of convolution and correla- 
tion functions; low-pass, high-pass, 
band- pass and band-rejection digital 
filters; and in solving linear boundary- 
value problems. 


Source code and documentation is 
included for MS-DOS systems. Some 
of the TURBO Complex routines are 
most effectively used with routines 
contained in TURBO Advantage. 


TURBO Advantage/ 
Complex Package Item #070A $115 
TURBO Complex Item #071 $89.95 





TURBO 
8 
Advantage Display: 
Form Generator 
for Turbo Pascal 


ow, even if you have little program- 
ming knowledge, you can design 
and process forms to fit your needs! 


TURBO Display includes a menu- 
driven form processor, 30 Turbo 
Pascal procedures and functions to 
facilitate linking created forms to your 
program, and full source code and 
documentation. For MS-DOS systems. 


Some of the TURBO Advantage: 
Source Code Libraries for Turbo 
Pascal routines are necessary to com- 
pile TURBO Display. You save $20 
when you order TURBO Advantage: 
Source Code Libraries for Turbo 
Pascal together with TURBO Display: 
Form Generator for Turbo Pascal. 
Receive both for only $99.95! 


TURBO Display: Form Generator 
for Turbo Pascal is also available 


individually for $69.95. 
TURBO Advantage/ 


Display Package Item #070B $99.95 
TURBO Display Item #072 $69.95 


Each Turbo Advantage 
package includes 
complete source code 
on disk. 
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Turbo Pascal 
Toolbook 


Edited by 
Namir Clement Shammas 


Me your programming easier 
and more powerful with The 


Turbo Pascal Toolbook! 
You'll find: 


e an extensive library of low-level 
routines 
external sorting and searching 
tools, presenting a new database 
routine that combines the best 
features of the B-tree, B+ and 
B++ trees 
® window management, to help you 
create, sort, and overlay windows 
artificial intelligence techniques 
mathematical expression parsers, 
offering two routines that convert 
mathematical expressions into 
RPN tokens 
¢ a smart statistical regression 
model that searches for the best 
regression model to represent a 
given set of data. 


All routine libraries and sample 
programs are on disk for MS-DOS 
systems, and over 800K of Turbo 
Pascal source code is included! 


Turbo Pascal Toolbook 

Item #080 

Turbo Pascal Toolbook with disk 
Item #081 


$25.95 
$45.95 
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STAT Toolbox 


for Turbo Pascal 


Bs convenience, power, and ver- 
satility to your statistics programs! 


Two statistical packages in one! 


A library disk and reference manual 
Use these powerful statistical routines 
to build your applications. 
Routines include: 
© statistical distribution functions 
¢ random-number generation 
e basic descriptive statistics 
© parametric and non-parametric 
statistical testing 
¢ bivariate linear regression, multi- 
ple and polynomial regression. 


A demonstration disk and manual 
This package incorporates the library 
of routines into a fully functioning 
statistical program. Two data manage- 
ment programs are included to facili- 
tate the storage and maintenance of data. 


Full source code is included. (For IBM 
PC’s and compatibles. Turbo Pascal 
version 2.0 or later, and PC DOS 2.0 


or later are required). 


STAT Toolbox Item #050 $69.95 











Dr. Dobb's 
Toolbook of Forth 


his comprehensive collection of 

useful Forth programs and tutorials 
contains DDJ’s best Forth articles, 
expanded and revised along with new 
material. You'll find sections on: 

e Mathematics in Forth 

© Modifications/Extensions 

e Forth Programs 

¢ Forth—the Language 

¢ Implementing Forth 


You'll also find Appendixes that will 
help you convert fig Forth to Forth-83, 
and tell you how to stay up-to-date on 
the latest developments and refinements 
of this popular language. 


The screens in the book are also 
available on disk as ASCII files. 


Dr. Dobb’s Toolbook of Forth 
Item #030 $22.95 


Dr. Dobb's Toolbook of Forth with Disk 
Item #031 $39.95 


Please specify MS/PC-DOS, Apple II, 
Macintosh, or CP/M. For CP/M disks, 
specify Osborne or 8” SS/SD. 
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Bound Volume I1 


All of 1986! 


Bound Volume 11: 1986 


he promise of power. With the 

introduction of the first true 32-bit 
microprocessors, desktop computers 
began to rival minis and mainframes 
in power. DD/ covered the changes 
with special issues on the 68000, 
parallel processing, artificial intel- 
ligence, the 80386, and multitasking. 
We supported the new chips with 
assemblers, translators, and other 
cross-development tools. Additional 
features included a special graphics 
issue, reviews of Dan Briklin’s DEMO 
program and Jef Raskin’s SwyftCard, 
and our sixth annual Forth issue. We 
introduced a new structured languages 
column, led by Michael Ham and Namir 
Shammas, while Ray Duncan and Allen 
Holub continued to provide their own 
valuable columns. 


Item #020F $35.75 





In CA 800-356-2002 
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Bound Volume 1: 1976 

The working notes of a technological 
revolution. Before there was Apple, 
DDJ put a programming language on 
the first microcomputers and became 
a chronicler and instrument of the 
microcomputer revolution. 
Item #013 $30.75 
Bound Volume 2: 1977 

Running light without overbyte. By 
year two the formula was clear: 

serious technical questions handled 
with a minimum of reverence much 
source code and a commitment to 
tight coding. 
Item #014 $30.75 
Bound Volume 3: 1978 

The roots of Silicon Valley growth. The 
S-100 bus was hashed out in DD/'s 
pages. Steve Wozniak and others 
published in DDJ code would help to 
build an industry. 
Item #015 $30.75 
Bound Volume 4: 1979 

In the midst of the gold rush. Three 
years before IBM moved in, the 
neighborhood was less civilized. DD/ 
published a gold mine of tips, tricks, 
and algorithms. 
Item #016 $30.75 
Bound Volume 5: 1980 

C and CP/M. 1980 saw an all-CP/M 
issue, including Gary Kildall’s 

history of CP/M and Ron Cain’s 
original Small-C Compiler. 


Item #017 $30.75 






Receive 11 years’ worth of useful code 
and fascinating history—the complete 
Dr. Dobb's library of 11 volumes for 
only $299. That's a savings of over $60! 
Item #020A $299 


Bound Volume 6: 1981 

The first of Forth. This was the year 
DDJ launched its first Forth issue and 
Dr. Dobb’s Clinic. Plus: PCNET, the 
Conference Tree, and 6809 Tiny BASIC. 
Item #018 $30.75 


Bound Volume 7: 1982 

Legitimacy. DDJ Observed the IBM 
phenomenon, reviewed MS-DOS and 
CP/M-86, and looked forward to fifth- 
generation computers. 
Item #019 $35.75 
Bound Volume 8: 1983 

Power tools. Professional software 
development on a PC was getting 
easier; DDJ helped with Small-C, the 
RED editor, and an Ada subset. 
Item #020 $35.75 
Bound Volume 9: 1984 

Shaping things to come. In 1984 DD/ 
examined new programming environ- 
ments: Prolog, expert systems, 
Modula-2, and a $49.95 Pascal. Plus 
Allen Holub’s GREP, Unix internals, 
and two encryption systems. 
Item #020B $35.75 
Bound Volume 10: 1985 

The year of living dangerously. In 
1985, iconoclastic DD/ beat Apple to 
the goal of adding more memory, 

a SCSI port, and a hard disk to the 
Macintosh. Also: powerful software 
tools in C, Modula-2, Forth, Pascal, 
assembly language, and Prolog. 


Item #020D $35.75 
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(DER NOW! ORDER NOW! ORDER NOW! ORDER NOW! 
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CITY 
DAY PHONE 


[_] Check enclosed. Make payable to: 


STATE _________ ZIP 


M&T Publishing, Inc., 501 Galveston Dr., Redwood City, CA 94063 
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Name on card 
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other books and disks, add $2.25 per item. 
Outside U.S. For Bound Volumes, add $6.25 
per book surface mail. Add $18 surface mail 
for Special C Packages. For other books and 
disks, add $5.25 per item surface mail. For 


_ eign airmail rates available on request. For 


Fast Service and reduced shipping costs, 
Germans may order direct from: Markt & 
Technik, Buchverlag, Ilans-Pinsel-Strasse 2, 
8013 Haar bei Miinchen. Call Germany 089- 
4613-383 or 089-4613-711 for prices in Deutsch 
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(Listing continued, text begins on page 94.) 



























137{-.* inechar() Returns the character at the current curser 

138| * position. 

139| */ 

140 | 

141| #define cmove(y,x) vb_ctoyx(y,x); 

142| #define curpos(y,x) vb_getyx(y,x); 

143| #define replace (c) vb_replace(c); 

144| #define doscroll(l,r,t,b,a) vb_scroll(l,r,t,b,a); 

145| #define inchar() vb_inchar (NULL) 

146| 

147| #define min (a,b) ((a) < (b) 2? (a) : (b)) 

148 | 

es [ B mmm mn mn nn nn nn nn nn nn nn nn nn */ 

151] static int Echo = 1; /* Echo enabled «/ db DOS & Te 

152| static int Crmode = 0; /* If 1, use buffered input a/ & 

153] static int Nl =1; /*-T£.1, map ’\r to: \n on input x/ 

ee /* and map both to \n\r on output */ CREATE, VIEW AND EDIT dBase III 

fen ire ree ae tLe af data files from the DOS prompt. Use 

157 | 

158| noecho ( ) { Echo = 0; } iti 

159] echo ( ) { Echo = 1; fast and powerful full screen editing 

160] nl ( pt = 1; : : 

Peete oa pepe eee with search, append and direct 

162| getpos (yp,xp) { return curpos(yp, xp); } s ise. 

163| move (y, x) { cmove(y, Xx); GOTO capabilities. Output to the 

Pe Oe te na ee screen or printer at your choice. All 

165 | r r n ; 

166| /*---------------------------- - -- -- - -- -- -- +--+ - + - - af 

167 | 1 

et this from the DOS prompt. 

169| { 

170 | FILE *console; 

Lest 

172 | setvbuf (stdin, NULL, _IONBF, 0); /* Turn .off buffering*/ els PASCAL $29 ae 

173| Crmode = 1; e 

174| } 

1751 TURBO CHARGE YOUR TURBO PAS- 

176| nocrmode () ° 

ht ees hr CAL FILE ACCESS by using dBase III 
reopen( "/dev/con", "r", stdin ); ‘ ‘ . 

1791 Cenode = 02 data files. Simple dBase III file 

By Geiicte ee wae gee, ap es access allows report output with 

182| /*----------------------------- --- +--+ + eee x/ 

183 | 1 

PEA Wise veel Linens cold: bholny: metic j turbo speed. Includes a create util- 

185| bag . . ° 

186| int cols; /* Horizontal size (including border) x / ity which writes record structure 

187] int lines; /* Vergtical size (including bofder) */ ° - 4 

188| int begin_y: /* X coordinate of upper-left corner mf code automatically This allows field 

189| int begin x; /* Y coordinate of upper-left corner */ ‘ 5 

1901 { access using dBase field names. 

191| WINDOW ‘*win, *malloc(); | id d d 

192 | 

193 | if( !(win = malloc( sizeof(WINDOW) )) ) Samp € programs provi ed ani 

194 | ferr("Out of memory\n") ; ic] 

195 | source code is included. 

196 | win->x_org = begin x; 

197 | win->y org = begin y; 

198 | win->x_ size = cols : 

199| win->y size = lines 

200] win->row = 0; 

201] win->col = 0; 

202 | win->scroll ok = 0; Phone orders 

203 | 

204 | werase (win); 

206] } 

207 | 

208 Bee en me ee me ee a a . 

cade Me In Arizona 

210| int waddch( win, c ) 

211| WINDOW *win; 

2iz{ ‘Ant Gg ge 

2i3f 4 

214| /* Print a character: The following are handled 

215) * specially: Or send check or money order to: 

217] * \n Clear the line from the current cursor position i 

218| * to the right edge of the window. Then: LogicPath PO. Box 1267 

219| * if nl() is active: ° 

220 | = go to the left edge of the next line Chandler, Arizona 85224-1267. 

221| = else a ; ro 2 

222 | x go to the current column on the next line We welcome Visa/MC or COD in certified US 

223 | * In addition, if scrolling is enabled, the window inni 

224 | i: scrolls if you're on the bottom line. funds only. Add $2.50 lor shipping ip: order. In 

225 | * \t is expanded into an 8-space field. If the tab Arizona add 6% sales tax. Call or write 

226 * Cth ight ed £ Eh i 5 ead : ‘ 

eo * eabaot aruis tet ee Gee for other products or additional information 

at F \r gets you to the beginning of the current line. (602) 435-2370. 

230) * \b backs up one space but may not back up past 

231\| * the left edge of the window. Nondestructive. The 

232 | * curses documentation doesn't say that \b is 

233 | * handled explicitly but it does indeed work. 

234 | a 

235 | * The following is not supported by Unix. Don't use 

236 | * explicit escape sequences if portability is a 

237 | * consideration: 

238 | x ; 

239) * ESC This is not standard curses but is useful. All 

240| * characters between an ASCII ESC and analphabetic P.O. Box 1267 « Chandler, AZ 85244-1267 

241 | x character are sent to the output but areotherwise 


dBase III is a trademark of Ashton-Tate. 
Turbo Pascal is a trademark of Borland Intl. 






(continued on next page ) 


CIRCLE 226 ON READER SERVICE CARD 


Dr. Dobb’s Journal, July 1987 89 


Listing Four (Listing continued, text begins on page 94.) 


igonred. This let's you send escape RequgEee 
directly to the terminal if you like. I'm 
assuming here that you won't change windows in the 
middle of an escape sequence. 


* Return ERR if the character would have caused the 
* window to scroll illegally. 
*/ 


static int 
static WINDOW 
int 


Saw_esc = 0; 
*oldwin = NULL; 
rval = OK; 


if( 
{ 


oldwin != win ) 

cmove(win->y org + win->row, win->x_org + win->col); 
oldwin = win; 

Saw_esc ) 


if( isalpha( c) ) 
Saw_esc = 0; 


putchar(c); 


switch( c ) 


{ 

case '\033': 
Saw_esc = 1; 
putchar('\033'); 
break; 


case '\b'; 
if( win->col > 0 ) 


putchar('\b'); 
--( win->col ); 


VELED 





a. 


a ere vem ct ene tes am semen ena ceoee oF — 


Ti ittcsbbede 


Py 


Lo id 





| 

| con TOG cut TET IE TiC HIERARCHICAL WINDOWING BOM 0S ENVIRONMENT IS 

| BHHEE OPEN ARCHITECTURE nos! @ FRAMEMOEE OF MULTITASKING BACKGROUND TRAPS! 
HS JE LIEE HAUTE A PIHERTURIZED MALHFRARE CONDENSED ROGAN FNID A REFERRED! 

| @ COMPLETE MBLHIRE BETH puTLT-16 Pil BSE MGAG CHRON UH MOBELATGE . pHa ON-BOARD CART RISGE HRIUES | 
BGGS WINGGSIKG & SHEPERBADIC CReqana Turba #asic = Paseal> fil an ROM, Tetaliy ¢ Toexisiing tagether . 
|= More power? ul vee the computers that HERE'S nee see Hes MESQNS ULRTUAL MEMORY ik AI: 

| landed on the moon! The £2009 22 Bit G005 | GET WITH THE OL: | CACHE MEMORY. AUTO DIRECTORIES, 26 CHAE. 
| open architecture envirennent is a (1? GL COMPUTER = = Fie NAMES. 32 BIT FLOATING POINT DEFAULT. 
| Re ee een oe ene Gk |=) SHE PAGE MANUAL! yapTABLES, LINES, CONSOLE BUFFERS aRE 

| computers. Consider this: BEAM Virtual | ruriy ra7EGRATED | git GNLIMETED RIGHT OHT 10 THE END OF RAM?! 
| Memary in £8 windowing WE Caniral |G? WORD PROCESSOR | \ vi 

Giility runs UNLIALTED Tasks - Over 100 (4: DATABASE LakGate FR UT RIARENTS al aL BR. eapas : 

| in a mere 640K! Toggle between any with |? SPREADSHERT | ISP, APL, 62000 a$$ a CRA-PASCA 

| Cigl=i or with a Suserhouse. = EUSINESS | PPinp Hei RGN 77. TNRBG t SHPERE “HAPGE 

|< Gi Compatible computers & expansions, =| _ ae =) | COMPILERS. G5CO2 & 8048 CROSS ASSEMBLERS. 
 uporaded to 68620 with multiple ea euaRE Se | ALL create native 68000 code at LE-SEC. 
| negabyie memory mapping are available. (He F AN geile bg | CPM ROM Firmware & oe a 
| ernational magazines, the GHANTA j FSA athe t SS) Plug-on ADVANCED EPROM PROGRAMMER has 

7 Peas tha 4a Meastele Library, E UN-LINE HELP | ROM BASED MENU DRIVEN BURNING SYSTEMS TOO! 
| Online Services, Plus user groups | BASE PRICE: $389 | ény 68000 Computer under $1000 is a lot 

| worldwide support the @505 Dimension. | CUSTOM PACKAGES | of Machine for the Neney. Den’i pass it up. 
age 

(AGT 65, 

i. 








ee er entree etree etnias tes panna eae 


- | ee 







break; 


case '\t'; 
do 
{ 
waddch( win, ' )+ 
} 
while( win->col % 8 ); 
break; 


case '\r': 
win->col = 0; 
cmove (win->y org + win->row, win->x_org); 
break; 
default : 
putchar (c); 
if( ++(win->col) < win->x_size ) 
break; 


/* fall through to newline */ 


case ‘\n!': 
wclrtoeol( win ); 


if( Nl ) 
win->col = 0; 


if( ++(win->row) >= 
{ 


win->y size ) 


rval = wscroll( win, 1 ); 
--( win->row ); 


} 


win->row, 
win->col); 


cmove ( win->y org + 
win->x_ org + 
break; 


ee neni cae a ee 


nee LH 


= ee 


a bh. 


BREE 


Cad reed TTT TSE EUL iho dis5tbkd dd, thd kbbed 


x a xe 


“£ EH bet 
ST EEE 












ore 


= 








cat ont eemeaomnes o ns one 


esa GadbioctnateieincintnntsLuibtemabsinanih aneuiveteehiiresdaabe’ eapieeibees soanvaaeun acorceuernneee: etna serenanate s seergheweterene* same =see sen ste" oe teeta MATER seme nee eh etme Hane peewee Nee mee 
een oan nts ote eentN ATES pneesemnene Semmens ones ens 1088 bomen TT O Oe ROE RANE ANT NR ONO wee mee sm one man ra ro onan anon — aan 94 wer wannes Woe anor somer: ptee ste amasenmnstars a fon ahs Pawn tenes ot tat eran tee 
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323] 
324 | 
325 | 
326 | 
327 | 
328 | 
323] 
330 | 
331) 
332 | 
333} 
334 | 
2a0 | 
336 | 
337 | 
338 | 
333} 
340| 
341| 
342 | 
343 | 
344 | 
345] 
346| 
347] 
348 | 
349] 
350 | 
351] 
352 | 
3534 
354 | 
3385 | 
356 | 
357 | 
358 | 
3391 
360 | 
361] 
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363 | 
364 | 
365 | 
366 | 
367 | 
368 | 
369] 
370] 
371} 
372] 
373 | 
374] 
375| 
376| 
377| 
378 | 
379] 
380 | 
381] 
382 | 
383 | 
384 | 
385 | 
386] 
387 | 
388 | 
389 | 
390 | 
sel] 
392 | 
393 | 
394 | 
395 | 
396 | 
397{ 
398 | 
399 | 
400| 
401] 
402| 
403] 
404| 
405| 
406] 
407] 
408 | 
409] 
410| 
411] 
412| 
413) 
414] 
415 | 
416| 
417] 
418| 
419| 
420| 
421] 


return rval; 


/* PP Se me Se Oe eS SS ae SS ae OS a a me es ee we as ae es ew ws ws ee nw we ees x / 
waddstr( win, str ) 
WINDOW *win; 
char *str's 
{ 

while( *str ) 

waddch( win, *str ); 

} 
/* a a a a wr wr a wo x / 


static int Errcode = OK; 


static wputcic, win) WINDOW *win; 


} 


Errcode |= waddch(win,c); 


wprintw(win, fmt) 
WINDOW ‘*win; 
char *fmt ; 


/* The doprnt() function used here is explained in depth 
* in Allen Holub, The C Companion (Prentice-Hall: 1987), 
* pp. 213-237. If you don't have this book, an alternate 
* approach is explained in the text. 


*/ 


va_list args; 
va_start( args, fmt ); 
Errcode = OK; 
doprnt( wputc, win, 
return Errcode; 


fmt, args ); 


/* wee ee nn a a a a a a a a a a we wr a ws ee a ee ee * / 
box( win, vert, horiz ) 
WINDOW ‘*win; 
{ 
/* Draws a box in the outermost characters of the window 


using vert for the vertical characters and horiz for 
the horizontal ones. I've extended this function to 
support the IBM box-drawing characters. That is, 

if IBM box-drawing characters are specified for vert 
and horiz, box() will use the correct box-drawing 
characters in the corners. These are defined in 
box.h as: 


HORIZ 
D_HORIZ 
VERT 
D_VERT 


(Oxc4) 
(Oxcd) 
(Oxb3) 
(Oxba) 


single horizontal line 
double horizontal line. 
single vertical line 
double vertical line. 


*ne 4 Me He HHH He De OH OH 


/ 


int i, nrows; 

int Wi; Urry. i, Le: 
if( !( (horiz — HORIZ 
(vert == VERT 


{| horiz == D_HORIZ) && 
lt vert == D-VERT*) )) 
{ 


} 


else 


{ 


ul = ur = ll = lr = vert ; 


if( vert == VERT ) 
{ 
if (horiz==HORIZ) 
ul=UL, ur=UR, 
else 
ul=HD_UL, ur=HD_UR, 11=HD LL, 1r=HD_LR; 


11=LL, lr=LR; 


} 


else 
if (horiz==HORIZ) 
ul=VD_UL, ur=VD_UR, 1l=VD_LL, lr=vVD_LR; 
else 
ul=D_UL, ur=D_UR, ll=D_LL, 1r=D_LR; 


} 
cmove( win->y org, win->x_org ); 
putchar( ul ); /* Top line */ 


for( i = win->x_size-2; --i >= 0; ) 
putchar( horiz ); 


putchar( ur ); 
nrows = win->y_ size - 2 ; 
i - win->y org +1; 


/* Two sides */ 


while( --nrows >= 0 ) 
{ 


(continued on next page ) 
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SQL Compatible Query System adaptable to any 
operating environment. 






CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
Capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 









Portable Application Support System 






Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 













Screen |/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic Scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
hee (based on 32 bit binary), string, and 
ate. 










Including Source Code 
$395.00 


File System interfaces include 
C-tree and BTRIEVE. 









HARDWARE AND FILE SYSTEM 
INDEPENDENT 






“KURTZBERG 
OMPUTER QYSTEMS 


41-19 BELL BLVD. 
BAYSIDE, N.Y. 11361 








VISA/Master Charge accepted 


(718) 229-4540 








*C-tree is a trademark of FairCom 





IBM, SEQUEL, PC, XT, AT are trademarks of IBM Corp. 
MS-DOS and Xenix are trademarks of Microsoft Corp. 






CQL and the CQL Logo are trademarks of Kurtzberg Computer 
Systems. 
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A PROGRAMMER’S 
TOOL BOX 


A DP MANAGER’S 
BEST FRIEND 


PURE GENIUS IS NOT ENOUGH 
(YOU STILL NEED THE RIGHT TOOLS) 


@ DESIGN MENUS @ CAPTURE SCREENS 
@ CREATE PROTOTYPES @ CREATE DEMOS 
@ CREATE TUTORIALS @ RUN TIME MODULE 


ENHANCE HIGH LEVEL LANGUAGES WITH FULL 
ACCESS TO ALL CAPABILITIES IN YOUR OWN CODE 


"source code was reduced by one third...” 

"15 minutes to design a sophisticated screen...” 
Scott McCaffrey, Musco of PA 

"In a word, fantastic...” 

”...1 just returned my copy of Dan Bricklin’s 

Demo Program.” Thomas Emr, Dir. of Marketing - ADP Inc. 


jG 
cenesis7 


5403 Jonestown Rd., Harrisburg, PA 17112 
FP Baye (717) 652-1200 
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8031 
FORTH DEVELOPMENT ENVIRONMENT 


Take advantage of Bryte’s tools to make your job easier: 


@ Bryte’s development environment uses BRYTE-FORTH 
on the actual production hardware during product 
development. No emulators, no changes, no surprises. 


Optional PC-based cross-development tools use DOS 
files as microcontroller mass storage. These files 
can be used to generate compact EPROM images, de- 
tailed listings, and cross-references. 


Why not start developing the Bryte way today? 


BRYTE-FORTH 8831 EPROM 100.00 
(includes 138 page User’s Manual) 

Utility disk(s) 65.00* 

Cross-compiler/Cross-assembler 235.00* 

8031 unlimitted quan. license 1000.00* 


* Includes complete source code 


loryte computers, Inc. 


P.O... Boxe: 46 
Augusta, ME 04330-0046 


207/547-3218 
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422| 
423 | 
424 | 
425| 
426| 
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428 | 
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430| 
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440| 
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464 | 
465 | 
466 | 
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477 | 
478 | 
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488 | 
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490 | 
491 | 
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495 | 
496| 
497 | 
498 | 
499| 
500 | 
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503 | 
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507 | 
508 | 
509| 
510| 
511| 
Sie | 
513 | 
514] 
515 | 
516] 
517] 
518 | 
519] 
520 | 
521] 
522 | 
523 | 
524 | 
525 | 
526] 
527 | 
528 | 
529 | 





Listing Four 
(Listing continued, text begins on page 94. ) 


cmove( i, win->x_org ); 
putchar( vert ); 


cmove( i++, win->x_org + (win->x_size - 1) ); 
putchar( vert ); 
} 


cmove(i, win->x_org) ; /* Bottom line */ 
putchar( 11 ); 


for( i = win->x_size-2; --i >= 0; ) 
putchar( horiz ); 


putchar( lr ); 


werase( win ) 
WINDOW *win; 
{ 
vb_scroll( win->x_org, win->x_org + (win->x_size - 1), 
win->y org, win->y_org + (win->y size - 1), 
win->y size ); 


cmove( win->y_org, win->x_org ); 
win->row = 0; 
win->col = 0; 


Scroll the window if scrolling is enabled. Return 1 if we 
scrolled. (I'm not sure if the Unix function returns 1 

on a scroll but it's convenient to do it here. Don't 
assume anything about the return value if you're porting 
to Unix. Wscroll() is not a curses function. It lets you 
specify a scroll amount and direction (scroll down by -amt 
if amt is negative); scroll() is a macro that evaluates to 
a wscroll call with an amt of 1. Note that the Unix curses 
gets very confused when you scroll explicitly (using 
scroll()). In particular, it doesn't clear the bottom line 
after a scroll but it thinks that it has. Therefore, when 
you try to clear the bottom line, it thinks that there's 
nothing there to clear and ignores your wclrtoeol() 
commands. Same thing happens when you try to print spaces 
to the bottom line; it thinks that spaces are already there 
and does nothing. You have to fill the bottom line with 
non-space characters of some sort, and then erase it. 


/ 


+ + + + + HF HF OF HF HH HF HF OF OH OF 


wscroll(win, amt) 
WINDOW *win; 


if( win->scroll ok ) 
doscroll( win->x_org, win->x_org + (win->x_size-1), 
win->y org, win->y_org + (win->y_ size-1), 

amt) ; 


return win->scroll ok ; 


wmove( win, y, X ) 
WINDOW *win; 
{ 
/* Seek into the window. It's not permitted to seek 
* outside of the window area. 
4 


cmove( win->y_org + (win->row = min(y,win->y_size-1)) , 
win->x_org + (win->col = min(x,win->x_size-1)) ); 


static getcon( win ) 
WINDOW *win; 
{ 

/* Get a character from DOS without echoing. We need 
to do this in order to support (echo/noecho). We'll 
also do noncrmode input buffering here. Maximum input 
line length is 132 columns. 


In nocrmode(), DOS is used to get a line and all the 
normal command-line editing functions are available. 
Note that since there's no way to turn off echo in 
this case, characters will be echoed to the screen 
regardles of the status of echo(). 

In order to retain control of the window, input 
fetched for wgetch() is always done in crmode, even 
if Crmode isn't set. 

If nl() mode is enabled, carriage return (Enter, “M) 
and linefeed (*J) are both mapped to '\n', otherwise 
they are not mapped. 
/ 


++ + + + 4 + + 4 HH FH HH OF 


static unsigned char buf[ 133 ] = { 133, 0}; 


static unsigned char *p = buf; 
static int numchars = 0; 
register int =F 

if( Crmode || win ) 


{ 
if( (c = bdos(8,0,0) & Oxff) == ('Z'-'"@") ) 
return EOF ; 


if( c == '\r' && Nl) 
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531 | 
532 | 
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539)| 
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568 | 
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571] 
572 | 
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583 | 
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588 | 
589 | 
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608 | 
609| 
610| 
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615| 
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617| 
618 | 
619] 
620 | 
621] 
622 | 
623 | 


627 | 
628 | 
629] 
630 | 
631 | 
632 | 
633 | 
634 | 
635 | 
636 | 
637 | 
638 | 
639 | 
640 | 
641 | 


c= '\n! 
if( Bcho ) 
{ 
4if¢ win’). -waddch (.win;.c-3; 
else addch ( S..)'F 
} 
return C; 
else if( numchars ) 
{ 
--numchars ; 
return *pt+ ; 
} 
else 
{ 
bdos(10, buf, 0); 
numchars = buf([l1]; 
p = &buf[2]; 
} 
} 
wgetch (win) WINDOW *win; { return getcon( win ); } 


getch ( ) { return getcon( NULL ); } 


/* Se a WG gw Sc tn nas sr fm seh ec Su ci Smee sis ce eh Ugo es es eas ns Tes le ls snp lpm x / 
clear () 
doscroll( -0,:79, 0, 24,25 ")s 
move( 0, 0 ); 
} 
/* Re Oe Oe Oe OS Se OO ee eee Oe Sees ee eee sees emo see anoeaeoceecea= x / 


wclrtoeol( win ) 
WINDOW *win; 
{ 
/* Clear from cursor to end of line, the cursor isn't 
* moved. The main reson that this is included here is 
* because you have to call it after printing every 
* newline in order to compensate for a bug in the real 
* curses. This bug has been corrected in the curses 
* presented here, however, so you don't have to use 
* this routine if you're not interested in portability. 
* Note that you must use a replace function on the 
* rightmost character to prevent scrolling. 
* 


register int ae 


for( i = win->x_size - win->col - 1; --i >= 0 ;) 
putchar(' '); 


replace(' '); 
cmove( win->y org + win->row, win->x_org + win->col ) 


#ifdef MAIN 


WINDOW *boxwin( lines, cols, y start, x start ) 
{ 
/* This routine works just like the newwin() except that 
* the window has a box around it that won't be destoyed 
* by writes to the window. It accomplishes this feat by 
* creating two windows, one inside the other, with a box 
* drawn around the outer one. 


x/ 

WINDOW *outer, *inner; 

outer = newwin(lines, cols, y_start, x_ start); 
#ifdef MSDOS 

box( outer, VERT, HORIZ ); 
#else 

box( outer, “j{*, =" -); 
#endif 

wrefresh ( outer ); 


return newwin( lines-2, cols-2, y start+1l, x _start+l ); 


} 


pattern () 
{ 

clear(); 

print f ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("012345678901234567890123456789012345678390 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("012345678901234567890123456789012345678390 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("012345678901234567890123456789012345678390 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf ("01234567890123456789012345678901234567890 
printf (" Zz 2 3 4 


O\n"); 
1\n"); 
2N\n"),: 
3\n'*)} is 
4\n"); 
ore) 3 
6\n"):: 
TNA" hs 
e\n"):: 
S\n"}; 
10\n") ; 
LINHA} 
Len") 
13\n").: 
14\n")> 
1$\n") > 
L6\n") > 
£L7X\n"); 
18\n"); 
19\n"); 
20\n"); 
2i\n") = 
22\n"); 
TE") ; 
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642 | 
643 | 
644 | 
645 | 
646 | 
647 | 
648 | 
649 | 
650 | 
651 | 
652 | 
653 | 
654 | 
655 | 
656| 
657 | 
658 | 
659 | 
660 | 
661 | 
662 | 
663 | 
664 | 
665 | 
666 | 
667 | 
668 | 
669 | 
670 | 
671| 
672 | 
673 | 
674 | 
675 | 
676 | 
677 | 
678 | 
679 | 
680 | 
681| 
682 | 
683 | 
684 | 
685 | 
686 | 
687 | 


} 


main () 
{ 
/* All coordinates are (y,x) */ 
WINDOW *winl, *win2; 
char str[128]; 
int Cc; 
initscr(); /* Initialize curses xf 
noecho(); /* Echo off (it screws up the screen) */ 
crmode(); /* Put terminal into CBREAK mode x / 
pattern (); 
winl = boxwin(10, 20, 0, 0); 
win2 = boxwin(10, 20, 21, 11); 
scrollok( winl, TRUE ); 
wprintw(winl, “This is window one, doo wha\n" ); 
wrefresh( winl ); 
wprintw(win2, "This is window 2.\nPress a key\n" ); 
wrefresh( win2 ); 
c = wgetch(win2); 
wmove (winl, 5, 0 ); 
wprintw (winl, "Got %c, Ox%x\n", c, c ); 
wrefresh(winl); 
while( (c = wgetch(winl) & Ox7f) != 'q' ) 
{ 
LEC c== 'x'-'@! ) 
wclrtoeol( winl ); 
else 
waddch( winl, c ); 
wrefresh( winl ); 
} 
move (23,0); 
refresh(); 
endwin(); 
} 
#endif ee 
End Listings 


Now with 
aBx 
EXPRESS 


the dBx” Translator 


C from dBASE II, III, IlI+ programs 

Move to UNIX, XENIX, QNX, MAC, AMIGA 
Faster, more reliable IBM PC programs 
Supports multi-user and network 

Run your code on any standard C system 
Know dBASE? Learn C easily. 
Priced from $350; available from distributors 
Includes full screen handler library 
Supports a choice of C database managers 


from CY Desktop Ai 


1720 Post Road East, Westport, CT 06880 
Telephone: 203-255-3400 Telex: 6502972226MCI 
MCIMAIL-DESKTOPAI 


GaBASE is a trademark of Ashton-Tat dBx is a trademark of Desktop Ai 


CIRCLE 258 ON READER SERVICE CARD 








93 


COLUMNS 


Ctreol 


Curses: Unix-Compatible Windowing Output Functions 


A s I’ve mentioned before, I write 
a lot of code that has to work in 
both the MS-DOS and Unix environ- 
ments. Because I use a very Unix- 
compatible compiler (Microsoft 4.0), 
porting a program is usually pretty 
easy. Nonetheless, incompatibilities 
occasionally arise, usually when I’m 
doing some sort of low-level I/O. The 
Microsoft compiler doesn't have 
Unix-compatible fentl( ) or ioctl( ) 
functions, it doesn’t support the 
/dev/tty device for the console (you 
have to use /dev/con or con:), and it 
doesn't provide any sort of termcap- 
or curses-compatible function li- 
brary. Of these, the most serious 
omission is the lack of a curses li- 
brary. 

For the uninitiated, curses is a col- 
lection of terminal-independent, 
low-level I/O functions. These sub- 
routines let you do things such as 
move the cursor around on the 
screen, create and delete windows, 
write text and seek to specific win- 
dow-relative cursor positions, and so 
forth. The windows can be overlap- 
ping, and they support individual 
wraparound, scrolling, and so on. 
The curses functions can talk to vir- 
tually any terminal. They accom- 
plish this feat by using the termcap 
terminal database, which contains 
definitions for the various escape se- 
quences needed to get around on 
specific terminals. Moreover, they 
talk to the terminals efficiently. That 
is, they always send out the mini- 
mum amount of characters neces- 
sary to modify the current screen. 


by Allen Holub 


Curses functions keep two internal 
images of the screen—one of these 
reflects what’s actually on the 
screen; the other is a scratch space 
that you modify using the various 
curses functions. When you tell the 
curses functions to do a refresh, they 
compare the scratch buffer with the 
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actual screen image and then send 
out the minimum number of charac- 
ters necessary to get these images to 
match. This behavior is especially 
important when you're running a 
program via a modem and charac- 
ters are coming at 1,200 baud. Re- 
drawing the entire screen every time 
you scroll a 4-line by 10-character 
wide window is just unacceptable 
behavior. It takes too long. Curses 
functions solve the problem by re- 
drawing only those parts of the 
screen that have actually changed. 
Curses functions are described in 
depth in Volume 2 of the Unix Pro- 
grammer’s Manual (see the bibliogra- 
phy). 

This month I’m going to look at a 
set of curses-compatible I/O func- 
tions that run on the IBM PC. I've writ- 
ten several complex programs using 
these functions—programs that 
maintain several windows on-screen 
simultaneously, all of which are be- 
ing updated at different rates. More- 
over, the finished programs have 
ported to Unix with literally no mod- 
ification. I have not implemented the 
entire curses library, however. My 
version of the curses package doesn 't 
let you delete windows, nor does it 
support overlapping windows. Fi- 
nally, it is bolted into the IBM PC. I’ve 
made no attempt to do the write opti- 
mizations discussed earlier, and I use 
several of the video BIOS functions to 
do things such as scroll the screen. If 
your terminal supports regional 
scrolling, however, it shouldn't be 
too difficult to modify the lowest-lev- 
el scrolling function to send the 
proper escape sequences. Neverthe- 
less, the package does give you quite 


a bit of DOS-to-Unix compatibility and 
has proved adequate for my own 
needs. 


Interfacing to the IBM PC 

All the curses functions talk to the 
screen via a well-defined video BIOS 
interface. I chose this approach for 
two reasons: first, the BIOS is some- 
what faster than the normal DOS in- 
terface and is dramatically faster 
than the ANSLSYS driver; and second, 
by concentrating the lowest-level 
routines in one place, I’ve (hopefully) 
made it easy to adapt these functions 
to terminals. The one problem that’s 
likely to arise when porting this code 
to a terminal is with scrolling. I use 
the BIOS scroll function to scroll indi- 
vidual regions of the screen. You pass 
this function the coordinates of two 
diagonal corners of a square region 
on the screen and a scroll amount. 
The BIOS then scrolls only that region 
by the indicated amount. If your ter- 
minal doesn’t have an escape se- 
quence that does this, you'll have to 
do what the real curses package actu- 
ally does—keep an internal image of 
the screen and refresh selected por- 
tions of it as part of the scroll. You 
could also do a series of character- 
read, move-cursor, character-write 
escape sequences, but that approach 
would be pretty slow. 

The BIOS routines are all in vbios.c 
(Listing One, page 74). These subrou- 
tines are a reworking of the routines 
used by my shell (described in On 
Command, see the bibliography). 
They're sufficiently different from 
the original subroutines that I've re- 
printed them here. The actual me- 
chanics of using the BIOS are dis- 
cussed extensively by both Ray 
Duncan and Peter Norton (see the 
bibliography), so I won't go into the 
mechanics here. The supported 
functions are shown in Table 1, page 
95. 

The only other IBM-related file is 
box.h (Listing Two, page 80), which 
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holds #defines for the various IBM PC 
box-drawing graphics characters. 


Curses 
The curses package itself is part mac- 
ros and part subroutines. The file 
curses.h (Listing Three, page 80) 
should be #included at the top of ev- 
ery file that uses the curses 
functions. 

Supported functions are listed 
below, grouped functionally. 


Initializing 
Initialization functions are: 


initscr‘( ) 
endwin( ) 


Initscr( ) initializes the curses pack- 
age. It should be called at the head of 
your main( ) subroutine, before any 
other curses functions are called. 
Endwin( ) cleans up. It should always 
be called before your program exits. 

In Unix programs, the terminal 
can be left in an unknown state if 
you abort your program with a 
Break. If you exit abnormally from a 
program that-uses curses, only to 
find your terminal acting funny (not 
echoing, not handling tabs or new 
lines properly, and so forth), you can 
usually correct the problem by typ- 
ing tset with no arguments. If that 
doesn't work, try <NL>reset<NL> 
where <NL> is a new line or Ctrl-J. 
If that doesn’t work try stty cooked 
echo nl, and if that doesn’t work, 
hang up and log on again. To avoid 
this sort of flailing around, it’s much 
better for your program to trap the 
SIGINT signal and to call endwin( ) 
from within the service subroutine. 
Use the following: 


#include <signal.h> 


onintr( ) 


endwin(); 
exit(1); 


main( ) 


{ 


signal( SIGINT, onintr ); 


None of the foregoing is a problem if 
you re not interested in porting your 
code to Unix, however. 
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Responding to Typed Characters 
Once the curses package is initial- 
ized, you should determine how 
your terminal is going to respond to 
typed characters. Six subroutines are 
supported. 

Two subroutines control input 
buffering: 


int crmode (); 
int nocrmode ( ); 


Crmode( ) disables buffering. Char- 
acters will be available as soon as 
they're typed. A nocrmode( ) call 
cancels a previous crmode( ). Here, 
an entire line is read before the first 
character is returned. The DOS (or 
Unix) command-line editing func- 
tions are all available if nocrmode( ) 
is active. Most curses programs use 
crmode( ). 

The following two subroutines 


int vb_getpage ( ) 


void vb_putchar (c) 
ant c; 





control character echo: 


int echo (); 
int noecho ( ); 


If echo() is called, characters are 
echoed as they’re typed; noecho( ) 
suppresses the echoing, so you'll 
have to do the echo yourself. The 
real curses package gets very con- 
fused when echo( ) is enabled. The 
problem here is that the curses pack- 
age doesn't know about any charac- 
ter that it has not written to the 
screen itself. Because characters are 
echoed by the operating system (not 
by curses), the package doesn't 
know they're there. As a conse- 
quence, when the curses package 
does a screen refresh, it won’t delete 
the characters that it doesn’t know 
about and the screen rapidly fills 
with unwanted and unerasable 


Get active video page #. 


Write a single character to the screen at the current 


cursor position. Only printing characters, back- 
space, new-line, and bell are supported. 


void vb_getchar (c) 
int d; 


Get a typed character directly from the bios. You 


can not redirect input that is fetched using 
vb__getchar{ ). 


void vb_puts(s, move) 
char *s> 
int move; 


Write a string out to the screen. Move the cursor only | 


if move is true. 


void vb_replace (c) 
int c: 


: Write a character to the screen without moving the 


Cursor. 


int vb_inchar (attrib) 
int *attrib; 


Return the character at the current cursor position. 


Modify “attrib to hold the attribute byte associated 
with that character. 


int vb_getcur( ) 


Return an integer representing the current cursor po- 


sition. The top byte holds the row; the bottom holds 
the column. 


void vb_setcur(posn) 
int posn; 


Send the cursor to a position fetched with a previous 


vb__getcur( ) call. 


void vb_ctoyx (y,x) 
int y <<: 


Set cursor position to (y,x) (row y, column x). The 


upper-left corner of the screen is (0,0 ). 


void vb_getyx (&y, &x) 
int *y, *x-: 


Put the current cursor position into *y (the row) and 


*x (the column). 


int vb_iscolor( ) 


Return true if the color monitor (as compared to the 


monochrome monitor) is installed. 


void vb_cursize (top,bot) 
int top, bot; 
voidvb_blockcur( ) 

void vb_normalcur( ) 


void vb_scroll(left,right, 


Set cursor size to extend from the top scan line to 
the bottom scan line of an individual character. 


Make the cursor a block cursor. 
Make the cursor a normal (underline) cursor. 


Scroll a region of the screen. Left is the column num- 





top,bot,amt) 


ber of the leftmost column in the region, right of the 
rightmost; topis the top line, botis the the bottom, and 
amt is the number of lines to scroll. If amtis positive, 
the region scrolls up, otherwise it scrolls down. 


Table 1: Functions in vbios.c 
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COGHEST 
(continued from page 95) 


characters. Always call noecho( ) at 
the top of your program and echo 
characters yourself. Another echo- 
related problem is caused by DOS. In 
order to get buffered input, you 
have to use a DOS function that al- 
ways echoes. So, if nocrmode( ) is ac- 
tive, the echo status is ignored. 

The final two configuration sub- 
routines are: 


int nl (); 
int nonl (); 


When nl( ) is active, a newline (’ \n’) 
is converted to a carriage-return, 
line-feed sequence on output, and a 
carriage return (’ \r’) is mapped to a 
newline on input; otherwise, no 
mapping is done. It’s usually conve- 
nient to set ni( ) at the top of your 
program. 


Initializing Windows 

Five functions are supported for ini- 
tializing windows. You don't have to 
use any of them if your screen is one 
big window that occupies the whole 
screen. The first function is: 


WINDOW *newwin( lines, cols, be- 
gin_y, begin_x ) 


int cols; 

int lines; 

int begin_y; 
int begin_x; 


which creates a new window lines 
rows high and cols columns wide 
with the upper-left corner at (be- 
gin_y, begin_x). [All coordinates here 
are (y,x), where y is the row number 
and x is the column number. The up- 
per-left corner of the screen is (0,0).] 
The window is both created and 
cleared. A pointer to a WINDOW 
structure, declared in curses.h, is re- 
turned in a manner analogous to fo- 
pen( ). You must save this pointer to 
pass to other curses functions. 

A variant on the newwin( ) subrou- 
tine is: 


WINDOW *subwin( win, lines, cols, be- 
gin_y, begin_x ) 


Here, win is a pointer to a window 
created with a previous newwin( ) or 


subwin( ) command. My implemen- 
tation of curses treats the subwin( ) 
command just like it does newwin( ). 
The real curses package, however, 
creates a subwindow. When a parent 
window is refreshed by curses, all 
subwindows are refreshed too. By 
the same token, if you read charac- 
ters from a parent window, you'll be 
able to get characters from the sub- 
window as well. Similarly, when 
you delete a parent window, all the 
subwindows are deleted too. 

The curses package supports a spe- 
cial stdscr window that represents 
the entire screen. This superwindow 
is created for you automatically by 
initscr( ). It's convenient to declare 
all other windows as subwindows to 
stdscr so that you can use the global 
functions discussed later. Note, how- 
ever, that you may not pass stdscr as 
a WINDOW pointer to any of the 
other subroutines that take WINDOW 
pointers as arguments. The real 
curses package lets you do this, but 
mine doesn’t support the practice. In 
fact, because no error checking is 
done in this situation, passing stdscr 
to a function results in a “Null point- 
er assignment” error message when 
your program terminates. 

Three other subroutines affect an 
entire window. The macro: 


scrollok (win, flag) 


WINDOW ‘win; 
int flag; 


is passed a WINDOW pointer and a 
flag. If the flag is true, the indicated 
window is allowed to scroll; other- 
wise, the window does not scroll and 
characters that go off the bottom of 
the window are discarded. Note that 
line wrap (when you go off the right 
side of the window, you end up on 
the left edge of the next line) is al- 
ways enabled. Scrolling is always en- 
abled on the stdscr window. 
The macros: 


refresh! ) 
wrefresh(win) 


WINDOW *win; 


are used by the real curses to signal a 
screen refresh. They force the 
screen to coincide with the internal 
representations of the screen. No 


characters are actually written out to 
the terminal until a refresh occurs. 
My own curses package writes to the 
screen immediately, so both of these 
macros expand to null strings; in 
other words they are ignored. You'll 
need them to be able to port code to 
Unix, however. Refresh( ) refreshes 
the whole screen (the stdscr window 
and all subwindows of stdscr), wre- 
fresh(win) is passed a WINDOW point- 
er and refreshes only the indicated 
window. Note that the refresh( ) 
command only works under the real 
curses if all windows are subwin- 
dows of stdscr. 
The function: 

int box( win, vert ,horiz ) 
WINDOW ‘win; 

int vert, horiz; 


draws a box in the outermost charac- 
ters of the window using vert for the 
vertical characters and horiz for the 
horizontal ones. I’ve extended this 
function to support the IBM box- 
drawing characters. That is, if IBM 
box-drawing characters are specified 
for vert and horiz, box( ) uses the cor- 
rect box-drawing characters for the 
corners. The box-drawing characters 
are defined in box.h as: 


HORIZ (0xc4) _ single horizontal line 
D_HORIZ (Oxcd) double horizontal line 
VERT (Oxb3) __ single vertical line 
D_VERT (Oxba) double vertical line 


Boxes can have double horizontal 
lines and single vertical ones, or vice 
versa. The Unix box( ) function uses 
the vertical character for the cor- 
ners. 

Note that box( ) doesn’t draw a box 
around the window, as the Unix doc- 
umentation would have you believe; 
rather, it draws the box in the outer- 
most characters of the window itself. 
This means you can overwrite the 
border if your output lines are too 
wide. When you scroll the window, 
the box scrolls too. A function that 
creates a bordered window in which 
the border is not part of the window 
itself is shown on lines 592-613 of 
Listing Four, page 81. Here, two win- 
dows are created, one nested inside 
the other. The outer window just 
holds the box, and the inner window 
is used normally (for characters). 
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10 important Reasons 
C Programmers Use 
ur File Manager 








1. It’s written in C. 

Clearly the growing language of 
choice for applications that are fast, 
portable and efficient. All of 

db_ VISTA’s source code is written in C. 


2. It's fast — almost 3 times faster 
than a leading competitor. 

Fast access that comes from the 

unique combination of the B-tree 
indexing method and the “network” or 
direct “set” relationships between 
records. A winning combination for 
fast performance. 


3. It’s flexible. 

Because of db__VISTA’s combination 
of access methods, you can program 
to your application needs with ultimate 
design flexibility. Use db__VISTA as an 
ISAM file manager or to design 
database applications. You decide 
how to optimize run-time 
performance. No other tool gives you 
this flexibility without sacrificing 
performance. 

db__VISTA is also well behaved to 
work with most any other C libraries! 


4. It's portable. 


db__VISTA operates on most popular 
computers and operating systems like 
UNIX, MS-DOS and VMS. Youcan 
write applications for micros, minis, or 
even mainframes. 


5. Complete Source Code 
available. 

We make our entire C Source Code 
available so you can optimize 
performance or port to new 
environments yourself. 


6. It uses space efficiently. 
db__VISTA lets you precisely define 
relationships to minimize redundant 


data. Itisnon-RAM resident; only 
those functions necessary for opera- 


tion become part of the run-time 
program. 





7. Royalty free run-time. 

Whether you’re developing applications 
for yourself or for thousands, you pay 
for db__VISTA or db__QUERY only 
once. If you currently pay royalties to 
someone else for your hard work, isn’t 


it time you switched to royalty-free 
db_ VISTA? 


db_VIsTA’ 


Features 

¢ Multi-user support allows flexibility to run on 
local area networks 

¢ File structure is based on the B-tree indexing 
method 

¢ Transaction processing assures multi-user 
consistency 

¢ File locking support provides read and write 
locks 

¢ SQL-based db_ QUERY is linkable 

¢File transfer utilities included for ASCII, 
dBASE optional 

¢ Royalty-free run-time distribution 

¢ Source Code available 

¢ Data Definition Language for specifying the 
content and organization of your files 

¢ Interactive database access utility 

¢ Database consistency check utility 

File Management Record 
and File Sizes 

¢ Maximum record length limited only by acces- 
sibleRAM 

¢ Maximum records per file is 16,777,215 

¢ Maximum file size limited only by available disk 
storage 

¢ Maximum of 256 index and data files 

¢ Key length maximum 246 bytes 

¢ No limit on number of key fields per record 

¢No limit on maximum number of fields per 
record 

Operating System 
& Compiler Support 

¢Operating systems: MS-DOS, PC-DOS, 
UNIX, XENIX, UNOS, ULTRIX, Microport, 
VMS 

¢ C compilers: Lattice, Microsoft, IBM, DeSmet, 
Aztec, Computer Innovations, Turbo C, XENIX 
and UNIX 


8. SQL-based db_QUERY 
Add our new C-linkable, SQL-based, 
ad hoc query and report-writing 
companion product to provide a 
simple relational view of your 

db_ VISTA applications. Without 
compromising speed. 


9. Free tech support. 

60 days of free technical and application 
development support for every Raima 
product. Of course, extended support 
and training classes are also available 
at your place or ours. 





10. Upward database 
compatibility 

Start out with file managementina 
single-user PC environment—then 
move up toa multi-user LAN ora VAX 
database application with millions of 
records. You'll still be using db__VISTA. 
That’s why so many C programmers 
are choosing db_ VISTA. 


But don't just take our word 
for it. 


““Raima’s customer support and documentation 
are excellent. Source code availability and 
royalty-free run-time is a big plus.” 
Dave Schmitt, President 
Lattice, Inc. 


“db_VISTA has proved to be an all-round high 
performer in terms of fast execution, flexibility and 
portability, and has undoubtedly saved us much 
time and development effort.” 
John Adelus, Hewlett-Packard 
Office Productivity Division 


30-day Money Back Guarantee! 
Try db_ VISTA in your environment 
for 30 days and prove it to yourself. If 
not completely satisfied, return itfora 
full refund. 


Price Schedule 
db_VISTA db__QUERY 
UO Single user $ 195 $ 195 
LI Single user w/Source $ 495 $ 495 
LJ Multi-user $ 495 $ 495 
L] Multi-user w/Source $ 990 $ 990 
NEW: 
CJ VAX Multi-user $ 990 $ 990 
L} VAX Multi-user w/Source $1980 $1980 
Order Now. 


Put db_VISTA to work in your 
application program. Ordering is 
easy—simply call toll-free. We'll answer 
your technical questions and get you 
started. Call today. 


Call Toll-Free Today! 
1 (800) db-RAIMA 
(800/327-2462) or 
206/828-4636 





RAIMA" 


CORPORATION 


3055 - 112th NE, Bellevue, WA 98004 USA 
(206) 828-4636 Telex: 6503018237 MCI UW 


DD77 
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PC/Vr 


UNIX’s VI Editor Now Available For Your PC! 


Are you being as productive as you can be with your computer? 
An editor should be a tool, not an obstacle to getting the job done. 
Increase your productivity today by choosing PC/VI—a COMPLETE 
implementation of UNIX* VI version 3.9 (as provided with System V 
Release 2). 

PC/VI is an implementation of the most powerful and most 
widely used full-screen editor available under the UNIX operating 
system. The following is only a hint of the power behind PC/VI: 

e Global search or search and replace using regular expressions 

e Full undo capability 

¢ Deletions, changes and cursor positioning on character, word, 
line, sentence, paragraph, section or global basis 

e Editing of files larger than available memory 

e Shell escapes to DOS 

e Copying and moving text 

e Macros and Word abbreviations 

e Auto-indent and Showmatch 

e MUCH, MUCH MORE! 

Don't take it from us. Here’s what some of our customers 
say: “Just what I was looking for!”, “It’s great!", “Just like the real 
VI" “The documentation is so good I have already learned 
things about VI that I never knew before.” — IEEE Software, 
September 1986. 

PC/VI is available for IBM-PC’s and generic MS-DOS? systems 
for only $149. Included are CTAGS and SPLIT utilities, TERMCAP 
function library, and an IBM-PC specific version which enhances 
performance by as much as TEN FOLD! 


PC/TOOLS' 


What makes UNIX so powerful? Sleek, Fast, and 
POWERFUL utilities! UNIX gives the user not dozens, but 
hundreds of tools. Now the most powerful and popular of these are 
available for your PC! Each is a complete implementation of the 
UNIX program. Open up our toolbox and find: 


e BANNER e DIFFH e PASTE «e SPLIT 

e BFS e DIFF3 e PR e STRINGS 
e CAL e GREP e RM e TAIL 

e CHMOD e HEAD e SED e TR 

e CUT e MAKE e SEE e TOUCH 
e DIFF e OD e SORT e WC 


All of these for only $49.00; naturally, extensive documentation 


is included! PC/SPELL’ 


Why settle for a spelling checker which can only compare words 
against its limited dictionary database when PC/SPELL is now 
available? PC/SPELL is a complete implementation of the UNIX 
spelling checker, renowned for its understanding of the rules of 
English! PC/SPELL determines if a word is correctly spelled by 
not only checking its database, but also by testing such 
transformations as pluralization and the addition and deletion 
of prefixes and suffixes. For only $49.00, PC/SPELL is the first 
and last spelling checker you will ever need! 

SLO 


Buy PC/VI and PC/TOOLS now and get PC/SPELL for only 
S1.00! Site licenses are available. Dealer inquiries invited. MA 
residents add 5% sales tax. AMEX, MC and Visa accepted without 
surcharge. Thirty day money back guarantee if not satisfied! 
Available in 5'4% 32” and 8” disk formats. For more information 
call today! 


*UNIX is a trademark of AT&T. *+MS-DOS is a trademark of Microsoft. 


CUSTOM SOFTWARE SYSTEMS 
PO. BOX 678 » NATICK, MA 01760 
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C CHEST 
(continued from page 96) 


This way, you can overflow the in- 
ner window and not affect the outer 
one (that holds the border). 


Moving the Cursor 
Three functions are supported for 
cursor movement: 


int move ( y, x) 
int wmove( win, y, X) 
getyx ( win, y, X) 


WINDOW *win; 
inty,X; 


Move( ) moves the cursor to the indi- 
cated absolute position on the screen. 
The upper-left corner of the screen is 
(0,0). Wmove( ) moves the cursor to 
the relative position within a specific 
window (pointed to by win). The up- 
per-left corner of the window is (0,0). 
If you try to move past the edge of 
the window, the cursor will be posi- 
tioned on the edge. The getyx( ) mac- 
ro loads the current cursor position 
for a specific window into y and x. 
Note that this is a macro, not a sub- 
routine, so you should not precede y 
or x with an address-of operator (&). 
This one command (only) accepts 
stdscr as a win argument. A ge- 
tyx(stdscr,y,x) call loads the current 
absolute cursor position into y and x. 


Keyboard Input 
Two keyboard-input functions are 
supported: 


int getch( ) 
int wgetch(win) 


WINDOW *win; 


Getch( ) just gets a character from the 
keyboard, and wgetch( ) echoes the 
character to the indicated window (if 
echo( ) is enabled, that is). Note that 
crmode( ) has to be enabled to get the 
character as soon as it’s typed, other- 
wise, the entire line will be buffered. 
It’s unfortunate that many compiler 
manufactures (Microsoft included) 
have chosen to use getch( ) as the 
name of their standard direct key- 
board-input function, but so it goes. 


Reading Back from the Screen 
Three functions are supported for 
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reading back characters that are al- 
ready on the screen: 


inch‘ ) 
mvinchly,x) 
mvwinch(win,y,x) 


WINDOW *win; 
int y,x; 


Inch( ) returns the character at the 
current cursor position. Mvinch(y,x) 
moves the cursor to the indicated po- 
sition and then returns the character 
at that position; mvwinch(win, y,x) 
does the same but the cursor position 
is relative to the specified window. 
Some older versions of curses don’t 
support the mv versions of this com- 
mand. 


Formatting Output 
Two formatted output functions are 
supported: 


printw (fmt, args...) 
int wprintw (win, fmt, args... ) 


WINDOW *win; 
char *fmt; 


Printw( ) works just like printft( ) 
does; wprintw( ) is the same but it 
prints to the indicated window, mov- 
ing the cursor to the correct position 
in the new window if necessary. 
(That is, it’s moved to the position im- 
mediately following the character 
most recently written to the indicat- 
ed window). = Printw(_ ) ignores win- 
dow boundaries, but wprintw( ) 
wraps when you get to the right edge 
of the window and the window 
scrolls when you go past the bottom 
line (provided that scrollok( ) has 
been called for the current window). 


Single Characters, 

Writing Strings 

The single-character and string- 
write functions are: 


addchic) 


int waddch(win, c) 
int waddstr(win, str) 


WINDOW ‘win; 
int C; 


char *str; 


Addch( ) works like putchar( ) does; 
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waddch( ) writes a character to the 
indicated window (and advances the 
cursor); and waddstr( ) works like 
fputs( ), writing a string out to the in- 
dicated window. Waddstr( ) does not 
add a ‘\n’ at the end of the string. 
Waddch( ) treats several characters 
specially: 


‘\n’—clear the line from the current 
cursor position to the right edge of 
the window. If ni(_) is active, you go 
to the left edge of the next line; other- 
wise, you go to the current column 
on the next line. In addition, if scroll- 
ing is enabled, the window scrolls if 
youre on the bottom line. 
“\t—expand to an eight-space field. 
If the tab goes past the right edge of 
the window, the cursor wraps to the 
next line. 

‘\r’—move to the left edge of the 
window, on the current line. 
‘\b’—back up one space but not past 
the left edge of the window. Nonde- 
structive. The curses documentation 
doesn't say that \b is handled explic- 
itly, but it does indeed work. 


The escape character is not han- 
dled specially by Unix, but my 
waddch( ) does do so. (Don’t use ex- 
plicit escape sequences if portability 
is a consideration.) In particular, all 
characters between an ASCII ESC and 
an alphabetic character (inclusive) 
are sent to the output but are other- 
wise ignored. This lets you send es- 
cape sequences directly to the termi- 
nal if you like. I’m assuming here 
that you won’t change windows in 
the middle of an escape sequence. 


Erasing 
Five erase functions are available: 


werase(win) 
erase( ) 


wclear’ ) 
clear( ) 


wclrtoeol (win) 
WINDOW *win; 


Clear( ) and erase( ) both clear the 
entire screen, wclear( ) and werase( ) 
both clear only the indicated win- 
dow, and welrtoeol( ) clears the line 
from the current cursor position in 
the indicated window to the right 
edge of the indicated window. 








Scrolling 
Finally, two scrolling functions are 
supported: 


scroll (win) 
wscroll (win, amt) 


WINDOW ‘win; 
int amt; 


Scroll( ) scrolls the indicated window 
up one line, and wscroll( ) scrolls by 
the indicated amount—up if amt is 
positive, down if it’s negative. This 
last function is not supported by the 
Unix curses. 

There’s one caveat about scrolling. 
The Unix functions have a bug in 
them in that, when a window scrolls, 
the bottom line is not cleared, leaving 
a mess on the screen. This problem is 
not restricted to the scroll( ) subrou- 
tine but occurs any time that the 
window scrolls (as when you send a 
\n at the bottom line of the window 
or when a character wraps, causing 
a scroll. As a consequence, if you're 
porting to Unix, you should always 
do a welrtoeol( ) immediately after 
either scrolling or printing a new 
line. Unfortunately, there’s no easy 
way to tell if a window has scrolled 
because of a character wrap. My 
curses package doesn’t have this 
problem—the bottom line of the 
window is always cleared on a scroll. 


Implementation 

For the most part, the code is 
straightforward and needs little com- 
ment. The WINDOW structure is de- 
clared on lines 7-17 of curses.h (List- 
ing Three). The macros for bool, reg, 
TRUE, FALSE, ERR, and OK are defined 
in the Unix curses.h file, so I’ve put 
them here too. Be careful of: 


if( fool) = = TRUE) 


TRUE is #defined as 1, but in fact any 
nonzero value is true. As a conse- 
quence, foo( ) could return a perfect- 
ly legitimate true value that didn’t 
happen to be 1, and the test would 
fail. The test: 


if( fool) != FALSE ) 
is safe, however. Most of the output 
functions return ERR if scrolling is 


disabled and the write would have 
caused a scroll. 
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CHEST 
(continued from page 99) 


The mvinch( ) and mvwinch( ) 
macros on lines 40 and 41 use the 
comma operator, often called the se- 
quence operator. The comma opera- 
tor evaluates from left to right, and 
the entire expression evaluates to the 
rightmost object in the list. For exam- 
ple, mvinch( ) looks like: 


#define mvinchly,x)\ 
(movely,x), inch( )) 


An equivalent subroutine is: 


mvinchly,x) 
movely,x); 
return inch‘ ); 
) 


The comma operator is used because 
two statements have to be execut- 
ed—the move( ) call and the inch( ) 
call. Were you to define the macro 
as: 


#define mvinchly,x) movely,x); inch( ) 
the following code wouldn’t work: 


if( condition ) 
mvinch(y,x); 


because it would expand to: 


if( condition ) 
movely,x); 
inch( ); 


Putting curly braces around the 
statements doesn't help. For exam- 


ple: 


#define mvinchly,x)\ 
{movely,x); inch( );} 


if( condition ) 
mvinchly, x); 

else 
something! ); 


expands to: 


if( condition ) 


movely,x); 
inch‘ ); 


| 


) 
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else 
something! ); 


Here the else will try to bind with the 
semicolon, which is a perfectly legiti- 
mate statement in C, causing a “No 
matching if for else’ error message. 
Though the comma operator solves 
both of these problems, it isn’t very 
readable. I don’t recommend using it 
unless you must. Never use it if curly 
braces will work in a particular ap- 
plication. 

The next problem is the wprintw( ) 
function. (Printw( ) is just a macro 
that evaluates to printft ), so it isn’t a 
problem.) In order to keep control of 
the window, you can’t just blast 
characters to standard output; rath- 
er, characters must be sent through 
waddch( ) so that you can position 
the cursor correctly, scroll the win- 
dow when necessary, and so forth. 
The problem is solved by using a spe- 
cial formatting output function, 
called vfprintft ) in the ANSI standard 
and —doprnt( ) by Unix. They both 
take three arguments: 


—doprnt ( fmt, args, stream ) 
vfprintf( stream, fmt, args ) 


Fmt is the format string, stream is the 
output stream, and args is the ad- 
dress of the first argument in the ar- 
gument list. For example, fprintft ) 
looks like this: 


fprintf(stream, fmt, args) 
FILE *stream; 

char *fmt: 

char *args; 


—doprnt( fmt, &args, stream ); 


Note that I’ve cheated here and not 
followed either the official ANSI or 
Unix methods of passing arguments 
to a subroutine with a variable num- 
ber of arguments. The above exam- 


| ple is easier to figure out, however. 


I've done it correctly in the code (on 
lines 345-361 of Listing Four). The 
process is also discussed in depth in 
my book The C Companion (see the 
bibliography) in which a complete 
sourc? for —_doprnt( ) is presented. In 
fact, Ive used the version from this 


book in curses (on line 359). This ver- | 


sion is nonstandard in that it is 
passed a pointer to an output func- 
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C CHEST 
(continued from page 101) 


tion rather than a stream pointer. 

It is possible to use the standard 
—_doprnt( ) or vprintf( ) functions, 
even though both of these are passed 
pointers to output streams rather 
than pointers to output functions. 
The problem is solved by the ver- 
sions of doprnt( ) shown in Examples 
1 and 2, right. 

The first of these is ANSI 
compatible. It solves the output- 
function problem by formatting into 
a string—using the ANSI vsprintfl ) 
function—and then writing the 
string out, one character at a time, us- 
ing the function pointer that was 
passed as the first argument. 

The solution for Unix systems (Ex- 
ample 2) is harder because there's no 
Unix equivalent to vsprintf( ). Here 
you have to send the formatted out- 
put to a file, rewind the file, and then 
read the file back, one character at a 
time, calling your output function to 
do the actual printing. The tempo- 
rary file is created in the if statement 
at the top of the subroutine; tmp_file 
will be NULL the first time that 
doprnt( ) is called. The temporary 
file name is created with a call to the 
Unix (and ANSI) mktemp 
(“YyXXXXXxX") function, which cre- 
ates a unique file name. Mktemp( ) is 
passed a template for the name, and 
it replaces the last six characters in 
that template with a number guaran- 
teed to form a unique name (one that 
isn’t currently in use). If you aren't 
using a Unix- or ANSI-compatible 
compiler, just replace the mktemp( ) 
call with some reasonable string 
(such as "$$$$$$$$.tmp”). Having cre- 
ated a target file, doprnt( ) calls 
_doprnt( ) to write out to that file. Fi- 
nally, it writes out a “\0’ to mark the 
end of string, rewinds the file, and 
then reads it back, printing each 
character. I’m assuming that your 
program will call exit( ) to close the 
temporary file. 

Note that, even though this code 
looks pretty awful, it’s not as ineffi- 
cient as it seems. Because I’m using 
the buffered read and write func- 
tions and because most strings are 
shorter than a buffer, there’s virtual- 
ly no disk activity. That is, all your 
reads and writes are really going to 
the internal disk buffer, not to the 


102 


disk itself. Only those strings that are 
longer than the buffer should cause a 
disk read or write. 


Erratum 

Jack Whitney of Walnut Creek, Cali- 
fornia found an error in Table 1 of 
the February C Chest (page 96). The if 
statement in the HASHPJW function 
should look like this: 


if(g = h & ~(unsigned) (~0) >> 4)) 


#include <stdarg.h> 


static 
int 


doprnt(ofunct, funct arg, 
(*ofunct) (); 
char *funct arg; 
char *fmt > 
va list *argp; 
{ 
/* A doprnt() for ANSI 


Nonetheless, the contents of the table 
are correct. The somewhat convolut- 
ed code is discussed in this month’s 
Flotsam and Jetsam. 
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fmt, argp) 


i* (c) Copyright 1987, Allen I. Holub. 


char buti133], *p > 


vsprintf( buf, fmt, argp ); 


fort *o = buf: “pp; (*cfunct) ( “pit, funct arg 7 } 


. 
af 


Example 1: A doprnt() for ANSI 
#include <varargs.h> 


static 
int (*ofunct) (); 
char *funct arg; 
char *fimt; 
va_list argp; 
{ 
/* A Goprnti) for Unix. 





doprnt(ofunct, funct arg, fmt, argp) 


/* (c) Copyright 1987, Allen I. Holub. 


int < 

extern char *mktemp() 
Static char *tmp_ name 
Static FILE *tmp file = 


if ( 


itmp file ) 
{ ‘ 


NULL ; 


tmp name = mktemp ("yyXXXXXX") ; 


aft i (tmp file = 
{ 


fopen(tmp name , "wt")) ) 


fprintf (stderr,"Can't open temporary file %s\n", 


exitt i }; 


} 


tmp _name ); 


_doprnt( fmt, argp, tmp file ); 


putc ( 0, tmp file ); 
rewind ( tmp file ); 


while( (c = getc(tmp file)) 


'= EOF && c ) 


(*ofunct) ( c, funct arg ); 


rewind( tmp file ); 


Example 2: A doprnt( ) for Unix 


/* Get ready for next call */ 
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Unix-like Shell for MS-DOS. Redwood 
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glewood-Cliffs, N.J.: Prentice-Hall, 
1987. Printf{ ) is discussed in depth in 
Chapter 9. 

Norton, Peter. The Peter Norton Pro- 
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& Portable Masks 

Bit masks are used to set or 
clear individual bits in a number. 
For example n & 0x1 clears all but the 
bottom bit of n. By the same token, 
n | 0x1 sets the bottom bit (to 1). It’s 
easy for bit masks to be nonportable, 
however. For example, if you want 
to clear only the bottom bit of a num- 
ber, it’s tempting to say: n & Oxfffe 
This statement makes an important 
assumption, however. It assumes 
that an int is 16 bits wide. If you tried 
to use it on a machine that had a 32- 
bit int, the top 16 bits of the number 
would be cleared too. You'd have to 
say Oxfffffffe on a 32-bit machine. 

You can correct this problem by 
using the one’s complement opera- 
tor (~), which reverses the sense of 
all bits in a word (maps the 1s to 0s 
and vice versa). For example, the ex- 
pression n & —1 clears only the bot- 
tom bit of a word, regardless of the 
word width. On a 16-bit machine, 
~ 1 evaluates to Oxfffe; on a 32-bit 
machine, it evaluates to Oxfffffffe. 

A similar problem arises when you 
want to set or clear only the top bit of 
a word. For example, n & 0x8000 sets 
the top bit of n; but it also only works 
with a 16-bit int. You’d have to say n 
& Ox80000000 on a 32-bit machine. 
This problem can be solved with a 
little convoluted coding. The 
expression 


~((unsigned) (~0) >> 1) 
evaluates to 0x8000 on a 16-bit ma- 
chine and 0x80000000 on a 32-bit ma- 


chine. The (~0) evaluates to an int- 
size number in which all the bits 
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mond, Wash.: Microsoft Press, 1985. 


Availability 
The code presented this month is 
destined for a book I'm writing (on 
the subject of compiler design). It is 
copyrighted by myself. Though 
you re welcome to both download it 
and use it yourself, you may not dis- 
tribute it in any form (including bina- 
ry) to anyone else or use it for any 
commercial purposes. 

All the source code for articles in 
this issue is available on a single disk. 


Flotsam and Jetsam 


are set. The cast to unsigned tells the 
compiler not to sign extend the num- 
ber on the right shift. The shift then 
moves all the bits one notch to the 
right, shifting in a zero from the left 
(because it’s unsigned). Finally, the 
outermost ~ reverses the sense of 
the mask. 

Note that the cast is required here 
because many compilers treat —0 as 
a signed integer (having the value -1). 
These compilers process the shift in 
one of two ways—both incorrect. If 
the compiler looks at >> 1 as a di- 
vide by 2, —0>->1 will evaluate to 0 
(-1/2 should be 0). If the compiler 
treats the >> 1 as an arithmetic 
right shift, it’s likely to duplicate the 
top bit rather than shifting in a 0 (so 
~0>=>1 will do nothing). 

The processed can be generalized. 
The top_n_bits(n) macro given 
below evaluates to a constant with 
the top n bits set: 


#define top_n_bits(n)\ 
—((unsigned) (—0) >> n) 


Note that all this shifting and invert- 
ing will be done at compile time by 
most compilers. That is, the expres- 
sion will actually evaluate to a single 
constant in the generated code, not 
to a series of shift and invert instruc- 
tions. Consequently, it’s no less effi- 
cient than the more straightforward- 
looking, but less portable, variant. 


Malloc() 

Enough people have written about 
the March Flotsam and Jetsam, in 
which I discussed problems with the 
malloc( ) and calloc( ) system calls, so 


To order, send $14.95 to Dr. Dobb’s 
Journal, 501 Galveston Dr., Redwood 
City, CA 94063, or call (415) 366-3600, 
ext. 216. Please specify issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 


DDJ 
(Listings begin on page 74.) 
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that a little more discussion of the 
problem seems in order. First, mal- 
loc( )is unique in that it is guaranteed 
to return a pointer that can point at 
any sort of object. You can’t always 
assume that pointers are the same 
size, regardless of the object to which 
they point. For example, in the 8086 
medium model, you can have a 16-bit 
pointer to a subroutine and an 32-bit 
pointer to data (or vice versa). For the 
same reason, it’s a mistake to cast a 
pointer in to an int because, if your 
machine has a 32-bit pointer and a 
16-bit int, the value will be truncated. 
In some machines you can't even as- 
sume that pointers to two data ob- 
jects will be the same. The problem 
here is alignment. A compiler for a 
machine that requires longs to be 
aligned on 4-byte boundaries—and 
ints on 2-byte boundaries—is likely to 
round a pointer to Jong when it is cast 
into a pointer to int (in order to main- 
tain alignment). In general, it’s not 
portable to cast a pointer into any- 
thing. Of course, it’s not always possi- 
ble to avoid this sort of cast. Printft ), 
for example, often has to make cer- 
tain assumptions about pointers and 
these assumptions are often nonpor- 
table. The foregoing notwithstand- 
ing, you can always cast the return 
value of malloc( ) into any kind of 
pointer—but only because malloc( ) 
was written with this sort of porta- 
bility in mind. By the same token, an 
extern statement can always be used 
to declare malloc( ) or calloc( ) as re- 
turning a pointer to any type of ob- 
ject. Don’t do this with other subrou- 
tines, however—at least not if you 
want your codetobe portable. © 
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A TOOLBOX OF C-SOURCE CODE 
THAT LETS YOU GET YOUR 
“EGA” APPLICATION UP AND 
RUNNING QUICK! 


EGA GRAPHICS TOOLS 


INCLUDES: 


@ Lines, Circles, Circle Segments, Arcs, Squares 
and Polygons 

HM Save/Load Screens and Windows to/from Disk 

@ Window Management, Moving Windows 

M@ Color and Palette Changes 

M@ Draw Axis, Plot Points 

@ Rotates and Moves 

@ Multiple Fonts 


UNIX-LIKE TOOLS 


Lock into the POWER of UNIX with 
CCtools, THE Programmer’s Toolkit™ 


CCtools contains various UNIX-look-a-like utilities and 
text processing commands useful in any programmer’s 
toolbox. Some of these programmer productivity tools 
are fgrep, head, tail, qpr, cat, wc, more, od, getopt, 
line, od, page, path, touch, cp, unig, true, false, expr, 
tee, and others. 


All programs within CCtools come with complete 
documentation and can be run from the normal 
system prompt. For instance, via command.com on 
an MSDOS machine. CCtools is a must for the 
serious programmer. 


CCtools is currently available on various machines 
for UNIX, MSDOS, and other non-UNIX environments 
at the introductory price of only $24.95! We can be 
reached at 718-849-2355 if you have any questions. 


We offer a FREE hotline, and a 30-day unconditional 
refund policy. We will never sell a copy-protected disk. 
No shipping, handling or hidden costs. 


@ Plus More... ONLY $59.95 


Comeau 
Computing 


91-34 120th Street 
Richmond Hill, NY 11418 


Co bra Systems 


ESTs, SAL RE EE RE i PERE FE ES OS TES BEE IIIS TET 
14700 Main Street, Suite 3, Bellevue, Wa 98007 (206/641-2759 
Add $5.00 shipping & handling. Washington residents add 8.1% 

sales tax. Member of the Programmer’s Co-op 
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FORTRAN PROGRAMMERS 


Looking for the right PC FORTRAN language system? If you’re serious 
about your FORTRAN programming then you should be using F77L - 
LAHEY FORTRAN. 


“Lahey’s F77L FORTRAN is the compiler of choice. It’s definitely a 
‘Programmers FORTRAN,’ with features to aid both the casual and the 
professional programmer... F77L compiled the five files in a total of 12 
minutes, which was 4 times as fast as MS FORTRAN and an astounding 6 
times as fast as Pro FORTRAN” - PC Magazine 


Compare the features and performance of other PC FORTRANSs with F77L 
and you will find that F77L is clearly the superior product. 
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Full Fortran 77 Standard (F77L is not a subset)* Fast Compile - Increases productivity 
Popular Extensions for easy porting of mini * Source On Line Debugger (Advanced 
and mainframe applications features without recompiling) 
COMPLEX« 16, LOGICAL*1 and INTEGER«2 ¢ Arrays and Commons greater than 64K 
Recursion - allocates local variables on ¢ Clear and Precise English Diagnostics 
the stack ¢ Compatibility with Popular 3rd Party 
IEEE - Standard Floating Point Software (i.e. Lattice C) 

Long variable names - 31 characters e Easy to use manual 

IMPLICIT NONE e Technical Support from LCS 


© NEW FEATURE - NAMELIST 


F77L - THE PROGRAMMER’S FORTRAN 


$477.00 U.S. 
System Requirements: MS-DOS or PC-DOS, 256K, math coprocessor (8087/80287) 
FOR MORE INFORMATION: (702) 831-2500 


Lahey Computer Systems, Inc. International Dealers: 
P.O.Box 6091 England: Grey Matter Ltd., Tel: (0364) 53499 


Incline Village, NV 89450 Denmark: Ravenholm Computing, Tel: (02) 887249 
U.S.A. 


Editor’s Chorce 


Australia: Computer Transitions, Tel: (03) 537-2786 - PCO Magazine 
Japan: Microsoftware, Inc., Tel: (03) 813-8222 


SERVING THE FORTRAN COMMUNITY SINCE 1967 


MS-DOS & MS FORTRAN are trademarks of Microsoft Corporation.Pro FORTRAN refers to Professional FORTRAN a trademark of 
Internationa! Business Machines. 
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COLUMNS 


80386 Programming Tools 
p erhaps Santa's reindeer are get- 

ting old, or perhaps all the per- 
sonal computers hanging off the 
back of his sleigh create too much 
drag. At any rate, he didn't arrive 
with my Compaq 386 Deskpro until 
the end of January—but the sus- 
pense was worth it. Remember 
when you switched from a 4.77-MHz 
IBM PC to a PC/AT or compatible? For 
the first few days, I was continually 
reminded of what a two to three 
times speed increase can do for one’s 
productivity as a software developer. 
Fortunately, the human organism is 
highly adaptable, and I have already 
learned to take the speed of the 386 
for granted. 

Microsoft has warned the comput- 
ing industry not to expect an 80386- 
specific version of protected mode 
DOS until at least late 1988. Program- 
mers, like other children of nature, 
abhor a vacuum, and several compa- 
nies are attempting to exploit this 
window of opportunity and carve 
out a niche for themselves in the 
80386 marketplace. MetaWare is 
marketing C and Pascal compilers, 
Quarterdeck Systems is shipping an 
80386-specific version of the DESO- 
view control program, several ver- 
sions of 80386 Unix/Xenix are under- 
way, and The Software Link (a 
company previously known for its 
copy-protection schemes) is about to 
release a multitasking operating sys- 
tem called PC/MOS 386. 

The first real 80386 programming 
tool to fall into my clutches (it actual- 


by Ray Duncan 


ly arrived before the Compaq did) 
was the Phar Lap 80386 assembly- 
language development package 
386ASM / 386LINK, which includes 
the following programs: 


¢ 386ASM.EXE: a full-fledged macro as- 
sembler supporting all 8086, 80186, 
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80286, 80386, 8087, 80287, and 80387 
opcodes. 

¢ 386LINK.EXE: a linker that produces 
a load module in the “old”. EXE for- 
mat. 

¢ MINIBUG.EXE: a program debugger 
capable of running 80386 real mode 
or protected mode applications, with 
a command set equivalent to MS-DOS 
DEBUG (except for the A command). 

* RUN386.EXE: a protected mode run- 
time environment for 32-bit 80386 
applications running under MS-DOS; 
Phar Lap calls this program the 386 
DOS-Extender. 


The distribution disks also contain 
various example programs and some 
object modules that allow the Phar 
Lap linker to be used with the Micro- 
soft C compiler. The 375-page man- 
ual is clearly written with lots of ex- 
amples. Like the Microsoft MASM 
manual, it concerns itself primarily 
with the assembler pseudo-ops or 
directives; readers are referred to the 
Intel 80386 Programmer's Reference 
for information about the CPU in- 
struction set and the syntax for the 
instruction mnemonics. 

Writing a new protected mode 32- 
bit 80386 application with these tools, 
or converting an existing application 
to take advantage of 32-bit protected 
mode, is quite simple. The attribute 
USE32 must be included in each of 
the segment declarations in the mod- 
ule. This tells the assembler that the 
32-bit override prefix byte is not re- 
quired before instructions that per- 
form 32-bit operations. After assem- 
bly, the program is linked with a 
special module (START386.OBJ), sup- 
plied by Phar Lap, that flags the ap- 





16-BIT SOFTWARE TOOLBOX 


plication as capable of being run in 
32-bit protected mode and prevents it 
from being accidentally run in real 
mode (if the resulting .EXE file is run 
directly from the MS-DOS command 
line, it simply displays an error mes- 
sage and exits). 

The MINIBUG and RUN386 tools are 
then used to debug or run the 32-bit 
protected mode application under 
MS-DOS. The applications can request 
MS-DOS system services in the normal 
way—that is, by loading the 80386 
registers with appropriate values 
and performing an Int 21h. The de- 
bugger or RUN386 intercepts the soft- 
ware interrupt, performs any ad- 
dress translation that may be 
required, switches the CPU into real 
mode, and transfers to MS-DOS to car- 
ry out the desired function. Upon re- 
turn from MS-DOS, the debugger or 
RUN386 performs any necessary 
translation on returned values, 
switches the CPU back into protected 
mode, and gives control back to the 
application. MINIBUG and RUN386 also 
supply the application with segment 
selectors that allow it to access com- 
mand tail arguments, physical mem- 
ory from 0 to 640K, and the video re- 
fresh buffer directly. 

Phar Lap will soon be releasing a 
“binding” for 32-bit protected mode 
applications that performs the same 
function as the RUN386 program but 
that can be linked right into the ap- 
plication—making the presence of 
the RUN386.EXE file unnecessary. The 
price of this binding will be $995, and 
it will include the right to distribute 
the Phar Lap code as an integral part 
of an application without further 
royalties or license fees. 

By now, you are undoubtedly 
wondering about the Phar Lap tools’ 
compatibility and performance com- 
pared to the Microsoft Macro Assem- 
bler (MASM) and Linker (LINK.EXE). On 
paper, 386ASM is nearly 100 percent 
upward compatible with the Micro- 
soft. Macro Assembler; the only ex- 
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ceptions being lack of support for the 
.ERR1, .ERR2, and .CREF directives. 
The few new 80386-specific direc- 
tives—.386C, .386P, .387, DP (a 6-byte 
data type for 32-bit protected mode 
address pointers)—and the segment 
attributes USE16 and USE32 are stylis- 
tically consistent with the Microsoft 
MASM syntax. 

In practice, the upward compati- 
bility of 386ASM from Microsoft 
MASM for 8086/286 applications in- 
deed proved to be excellent. I assem- 
bled and linked several large source 
files for my own company’s MS-DOS- 
based products, and the only differ- 
ences I detected lay in the area of 
more stringent error checking on the 
_ part of 386ASM. For example, 386ASM 
reported the source code line: 


esc equ 01bh 


as an error because of the collision 
between the symbol esc and the Intel 
instruction mnemonic ESC. Microsoft 
MASM let the same line pass without 
comment and interpreted the equate 
“as expected” when it was refer- 
enced later in a line such as: 


cls db esc, [2J’ 


The Phar Lap assembler has two 
particularly nice features that are 
not supported by the Microsoft as- 
sembler. The first is the ability to re- 
direct error messages to a file or de- 
vice distinct from the file or device 
that receives the entire program list- 
ing. The other is support for local la- 
bels; the scope of any label starting 
with the # character is limited to the 
current procedure. 

To test 386LINK’s compatibility 
with Microsoft LINK, I used it to re- 
build a relatively large assembly-lan- 
guage application containing some 
250 object modules from existing li- 
braries that had been created with 
Microsoft's LIB, MASM, and C and 
LMI’s UR/FORTH object module com- 
piler. The resulting .EXE file was not 
identical on a byte for byte basis with 
the .EXE file produced by Microsoft 
LINK, presumably because of slightly 
different library search or segment 
building strategies in the two linkers, 
but it was exactly the same size 
(19,414 bytes) and ran correctly. 

It should be noted that in order to 
support the 80386's 32-bit (native) in- 
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structions, Phar Lap has extended 
the standard Intel Object Module For- 
mat (OMF-86) with new classes of 32- 
bit offsets, displacements, and fix- 
ups. These extensions are similar but 
not identical to the OMF extensions 
made by Microsoft in its XENIX/386 
Toolkit. 

Command-line compatibility be- 
tween the Phar Lap tools and the Mi- 
crosoft tools is something else again. 
Phar Lap opted to design a complete- 
ly new command-line syntax for 
386ASM and 386LINK and did not 


The Phar Lap 
assembler 
has two particularly 
nice features 
not supported 
by the 
Microsoft assembler. 


make any attempt to follow the Mi- 
crosoft conventions. For example, 
the MASM command: 


C>MASM FILE1,FILE2; 


which assembles FILE1.ASM to create 
FILE2.OBJ and does not create a listing 


or cross-reference file, would look 
like this: 


C>386ASM FILE1 -OBJECT FILE2 -NO- 
LIST -8086 


for the Phar Lap assembler (unlike 
MASM, it creates a listing file by de- 
fault). Similarly, the Microsoft LINK 
command line: 


C>LINK /NOI MAIN+ MENU,MYFILE,,- 
NUCLEUS 


which links the modules MAIN.OBJ 
and MENU.OBJ with the modules in 
the library NUCLEUS.LIB and pro- 
duces the executable module MY 
FILE.EXE, would be entered as: 


C>386LINK MAIN MENU -EXE MYFILE 
-LIB NUCLEUS -8086 -TWOCASE 


for the Phar Lap linker. I feel that 


this lack of command-line compati- 
bility was not a sound strategic deci- 
sion by Phar Lap. Aside from the fact 
that the Microsoft command syntax 
is considerably terser and thus more 
efficient, everyone is already famil- 
iar with it. Adoption of the same syn- 
tax would have made transition to 
the Phar Lap tools that much easier, 
and existing MAKE files could be used 
without modification. Perhaps if 
enough people complain, Phar Lap 
will cave in and make the change be- 
fore it builds up too big a user base. 

Performance of the Phar Lap tools 
is acceptable, but they are not nearly 
as lean and mean as their Microsoft 
equivalents. 386ASM.EXE weighs in at 
215K, compared to 85K for MASM 4.0, 
and 386LINK is 75K, as opposed to 48K 
for Microsoft LINK. As might be ex- 
pected for such plump programs, 
they are also slow. The following 
timings were obtained on a Compaq 
386 Deskpro (16-MHz, 2-megabyte 
RAM, 70-megabyte fixed disk): 


Assembly of a 600-line assembler 
source file with a few simple macros 
and three segments: 

¢ Microsoft MASM, Version 4.0: 6.2 sec- 
onds 

¢ Phar Lap 386ASM, Version 1.1d: 10.8 
seconds 

Linkage of a 19K .EXE file containing 
approximately 250 object modules: 

¢ Microsoft LINK, Version 3.51: 18.6 
seconds 

¢ePhar Lap 386LINK, Version 1.1c: 2 
minutes 14.4 seconds 


A spokesman for Phar Lap says that 
the company’s own timings on its 
linker indicate it is only about 30 per- 
cent slower than the Microsoft link- 
er, so the application I was linking 
may represent some sort of worst 
case. Still, I suspect that the perform- 
ance of 386LINK, together with the in- 
compatible command syntax, will 
deter people from converting all 
their work onto the Phar Lap tools— 
including the development of 8086 
real mode applications—a conver- 
sion that would be perfectly feasible 
given the otherwise high degree of 
compatibility between Phar Lap and 
Microsoft's products. 

For the first release of such sophis- 
ticated programming tools, the Phar 
Lap products are remarkably sound, 
and we can reasonably expect that 
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they will continue to evolve and im- 
prove. Phar Lap’s technical support 
is above reproach, too. I had several 
occasions to send E-mail questions to 
Phar Lap via its account on BIX, and 
in each case I received helpful re- 
plies within the same day. 

In any event, 386ASM and 386LINK 
are currently the only game in town 
if you want to start working with the 
80386 in its native 32-bit mode and 
don’t hanker to throw away half 
your CPU cycles and hard disk on 
Xenix. The price of the MS-DOS ver- 
sion of the Phar Lap assembler /link- 
er/debugger package is $495. Ver- 
sions that run under VAX VMS or Unix 
and cross-assemble and link to the 
386 are also available. Phar Lap can 
be contacted at 60 Aberdeen Ave., 
Cambridge, MA 02138; (617) 661-1510. 


Book Corner 

Prompted by visionaries such as Jean 
Yates, who prophesied that Unix 
would be running on everything but 
your toaster oven by 1990, publishers 
have been flooding the bookstores 
with ‘‘advanced”’ Unix books for the 
last two years. Most of these books 
pan out to be collections of Unix E- 
mail tricks, warnings not to leave 
your terminal unattended while 
logged in, or guides to bigger and bet- 
ter shell scripts (batch files to you MS- 
DOS types). A relatively few books de- 
liver something more substantial and 
address the Unix application pro- 


gram interface. 

Books that actually describe the in- 
ternals of Unix in any detail, especial- 
ly those that do it in a way compre- 
hensible to a normal mortal, have 
been virtually nonexistent, however. 
The only readily available resource 
of any worth, aside from the source 
code for Unix itself (if you have 
$50,000 to spare for it), has been the 
two special issues of the AT&T Bell 
Labs Technical Journal (July/August 
1978 and October 1984), which were 
devoted to Unix articles by various 
Unix program authors, pioneers, gu- 
rus, and mystics. 

This deficiency has been decisively 
remedied with the appearance of 
The Design of the UNIX Operating Sys- 
tem, by Maurice J. Bach.! Mr. Bach 
works at Bell Labs and based his book 
on Unix System V, Release 2, source 
code, though some coverage is given 
to BSD Unix variants as well. He cov- 
ers the kernel architecture, file sys- 
tem, control of processes, interpro- 
cess communication, device drivers, 
and even multiprocessor Unix sys- 
tems. The book is thorough and well 
written, but it will be heavy going for 
readers lacking previous exposure to 
Unix and a general understanding of 
operating system and hardware con- 
cepts such as processes, scheduling, 
kernel and user mode, interrupt 
handlers, memory protection, swap- 
ping, page faults, and so on. 

An even more welcome book is Op- 
erating Systems: Design and Imple- 
mentation, by Andrew S. Tanen- 
baum,” which easily qualifies as the 


best general book on operating sys- 
tems I have ever seen. It covers all 
the necessary subjects (processes, file 
systems, interprocess communica- 
tion, memory management, mass 
storage, and so on) in the context of a 
Unix-like operating system for the 
IBM PC called MINIX. 

MINIX has the same system calls as 
Version 7 Unix, as well as a shell and 
some 60 other system utilities com- 
patible at the user level with Unix, 
but the source code is completely 
original and is included in the book 
(also available on diskette). An inter- 
esting feature of MINIX is that the file 
system manager runs outside the op- 
erating system as a user process. Con- 
sequently, it can be easily modified 
and even replaced with a file server 
process that accesses un-Unix-ish file 
structures (MS-DOS perhaps) or per- 
forms reads and writes across a com- 
munications link or network. 

Unlike many Unix authors, Tanen- 
baum has broad experience with 
other operating systems and fre- 
quently draws examples and com- 
parisons from his knowledge of VM/ 
370, MULTICS, and so on. The discus- 
sions of processes, scheduling, inter- 
process communications, and dead- 
locks are particularly coherent. I 
recommend this book without reser- 
vation to anyone interested in the 
principles of operation of modern 
operating systems. 


MASM Equates 
In the February 1987 column, I point- 
ed out some subtle differences be- 


Introducing Periscope” III 


A new generation of debugging for the IBM PC, XT, AT and close compatibles 


Tee you can invest $995 and get the most powerful debugging tool available short of a 
$10,000 in-circuit emulator! The Periscope III board’s hardware breakpoints and real-time 
trace buffer help you solve the really tough debugging problems. If you ever deal with errors in 
real-time systems, intermittent failures, interfacing with undocumented systems, or bottlenecks 
in your code, Periscope III may be just what you need! 


Call TOLL-FREE 800/722-7006 for more information. 
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SAS Institute Inc. 
Announces 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 
Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


PAR CCl ew og weeks ee a | 
| want to learn more about: | 
() the C compiler for MVS software developers | 
O) the C compiler for CMS software developers | 
(J the cross-compiler with PLINK86 and PLIB86 
today...so I’ll be ready for tomorrow. | 
Please complete or attach your business card. | 
Name | 
Title | 
Company | 
Address 
City Site a | 
Telephone | 
Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. | 
27511-8000. Telephone (919) 467-8000, x 7000 DDJ 7/87 | 

a 





SAS is the registered trademark of SAS Institute Inc., Cary, NC, USA. Lattice is the registered trademark of Lattice, Inc. PLINK86 and PLIB86 are trademarks of Phoenix Software Associates Ltd. 
UNIX is the trademark of AT&T. Copyright © 1985 by SAS Institute Inc. Printed in the USA. 
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tween equ and = that can lead to un- 
expected problems. Steve Russell of 
SLR Systems writes: 

‘There are lots of peculiarities be- 
tween egu and =. The differences 
are barely hinted at in the manual. 
The example in the manual [MASM 
4.0 Reference Manual, page 55] that 
Says: 


clearax equ xor ax,ax 


doesn’t work if you try to use it, 
though clearax does show up in the 
symbol table as being equal to the 
text value. 

“The distinction between the equ 
and = pseudo-ops is a little more sub- 
tle than suggested in your column. 
For instance, if you remove the sup- 
posedly redundant offsets and just 
use: 


dw $-test 


you find that equ and = yield identi- 
cal results (to each other, not to your 
example)—that is, equ stores the val- 
ue, not the text. On the other hand, if 
you simply write: 


t1 equ offset test 
t2 = offset test 


then try: 
mov ax,tl 
and: 

mov ax,t2 


you get two different results. It looks 
as though offset cannot be stored as 
part of a symbol, so equ stores text if 
the expression does not yield a ‘val- 
ue’ and the = directive throws away 
offset because it can’t store text. 

‘So the question is, is the latter ac- 
tion a bug in = because it faithfully 
throws offset away without saying 
so or is itan undocumented feature?’”’ 


The Dialogue Goes On 
Frank Albe, of Houston, Texas, takes 
up the cudgel this month on the sub- 
ject of high-level vs. assembly lan- 
guages: 

“Charles Lyall’s letter in your 
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March column has been nagging me 
for a week now, so I decided it’s time 
to respond. As you pointed out, Mr. 
Lyall’s letter is well crafted and states 
some informed opinions. 

“The letter makes four major 
points: 


‘1. You can’t master as many assem- 
bly languages as you can high-level 
languages (HLLs). 

“2. It takes orders of magnitude 
more time to write in assembly lan- 
guages than it does in HLLs. 

‘3. The difference in execution time 
does not warrant investing the extra 
programmer time. 

“4. Fourth-generation languages 
(4GLs) and HLLs will trample assem- 
bly languages in the dirt because the 
cost-accountant mentality says, ‘Go 
for the lowest bid for equivalent 
function.’ 


“To me, this is the voice of an ap- 
plication analyst. From his vantage 
point, his arguments are very per- 
suasive and full of common sense. 
My position is that of an opinionated 
systems software developer who 
‘hacked his first piece of code’ in 1963 
on a CDC 1604: 


‘1. It is a lot more difficult to be flu- 
ent in many assembly languages be- 
cause we have to know more than 
the assembly language, per se. We 
must develop deeper understanding 
of the target operating system and 
hardware than is required of the 
person who writes exclusively in 
HLLs. In my opinion, HLL applications 
can benefit dramatically from care- 
ful attention to these details, but far 
too few HLL programmers are will- 
ing to invest the time to gain the 
knowledge and make good use of it. 

“2. Programmers always underesti- 
mate the time it takes to write a func- 
tioning program and to burnish it to 
their satisfaction. I don’t know any- 
thing about the example TEE, but un- 
less it’s pretty trivial, I doubt that 
most people could write it from 
scratch in 15 minutes in an HLL such 
as C, Pascal, COBOL (snicker, snicker), 
or FORTRAN. For the purposes of ar- 
gument, assume the relationships of 
8 to 1 for coding and 10 to 1 for execu- 
tion time hold across the board. I 
know this is invalid, but these num- 
bers are as good as any others to 





make my point. If the program will 
run infrequently and not in conjunc- 
tion with others in an interactive 
suite, the 10-second load and execute 
time is probably acceptable. If the 
program is a tool such as the DIR com- 
mand in MS-DOS, a perceivable delay 
is intolerable. 

‘3. The total elapsed time to get code 
operational is a significant factor. In 
the example, it is reasonable to as- 
sume that one person can accom- 
plish either task in a single sitting ata 
terminal. It is a matter of taste and 
professional judgment which is bet- 
ter: blindingly fast execution or in- 
credibly quick production of the 
source code. 

“Let’s jump from the sublime to 
the ridiculous and consider a com- 
plex cost-accounting application that 
must be run daily on existing hard- 
ware. It will take 2 years to develop 
in assembly language and will run 3 
hours. If you need it in 3 months, can 
you accept a 30-hour daily run time? 
On the other hand, can you stay in 
business 2 years while the software 
engineers develop the Great Golden 
Wheel, and will you still need the ap- 
plication then? I know there are fal- 
lacies in this hypothesis, but it illus- 
trates the point that it’s not all black 
and white. There are many colors 
and shades of gray out there. 

“We can't discount performance 
and compactness just because our 
personal computers are getting big- 
ger and faster, lest we be doomed to 
relive the third-generation main- 
frame era. I hope there are enough 
responsible newcomers who will 
learn the history and folklore of this 
age of dinosaurs and profit from it. 
‘4. Lalways prefer to program in an 
HLL wherever practical, but it will 
take at least one more generation of 
hardware and/or software before 
we reach the point where assem- 
blers are unnecessary. Reduced in- 
struction set computers look like the 
best bet right now. We seem to be us- 
ing the RISC models as an excuse to 
justify an evolution in compiler tech- 
nology that reduces the compiler’s 
scope and pushes the work down to 
a common object code optimizer. 
The theory, of course, is that you can 
write one of these to support all your 
compilers. This concept is not new, 
it’s just getting a lot of good press 
right now. 
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“The most important benefit will 
be realized when the vast majority of 
executable code is truly reentrant. I 
have an inflatable soapbox that I’ve 
been carrying around since 1971, 
upon which I have preached this ser- 
mon many times. 

“When my HLL code is properly 
optimized and reentrant, I will glad- 
ly clear storage and disavow all 
knowledge of any assembly lan- 
guage. Until that time, however, I re- 
serve the right to write in an assem- 
bly language of my choice when I 
feel the results are justified. The 
same holds true for the HLL of my 
choice.” 




















Erratum 
In my May discussion of Command 
Plus from ESP Software Systems I 
gave an incorrect phone number for 
the company. The correct numbers 
are (213) 390-7408 (in California) and 
(800) 992-4377 (outside California). 











Notes 
1. Maurice J. Bach; The Design of the 
UNIX Operating System Inc., Engle- 
wood Cliffs, N.J.: Prentice-Hall, 1986. 
ISBN 0-13-201799-7 025. 

2. Andrew S. Tanenbaum, Operating 
Systems: Design and Implementation, 
Englewood Cliffs, N.J.: Prentice-Hall, 
1987. ISBN 0-13-637406-9 025. 
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UNIX-like Utilities for Managing 
C Source Code 


No C programmer should be without their 
assistant — C ToolSet. All of the utility programs 
are tailored to support the C language, but you 
can modify them to work with other languages 
too. 

Source code in standard K&R C is included; 
and you are welcome to use it with any compiler 
(UNIX compatible) and operating system you 
choose. 


12 Time Savers 


DIFF - Compares text files on a line-by-line 
basis; use CMP for byte-by-byte. Indispensable 
for showing changes among versions of a 
program under development. 

GREP - Regular exp.. ssion search. Ideal for 
finding a procedural call or a variable definition 
amid a large number of header and source 
files. 

FCHART - Traces the flow of control between 
the large modules of a program. 

PP (C Beautifier) - Formats C program files 
so they are easier to read. 

CUTIL - A general purpose file filter. 


Requires MSDOS and 12K RAM 


C TOOLSET & 





CCREF - Cross references variables used within 
a program. 

CBC (curly brace checker) - checks for pairing of 
curly braces, parens, quotes, and comments. 
Other utilities include DOCMAKE, ASCII, 
NOCOM, and PRNT. 

Source code to every program is included! 


Thorough User Support 
Text and Online 

C ToolSet documentation contains descriptions 
of each program, a listing of program options 
(if any), and a sample run of the program. 

On-line help gives you information on the 
programs and how to run them. Most of the 
programs respond to -? on the command line 
with a list of options. 


Call 800-821-2492 to order C ToolSet 


risk-free for only $95. 


Solution 
ystems “ 
335-D Washington St.. 


Norwell, MA 02061 
(617) 659-1571 
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Brand New From Peter Norton 
A PROGRAMMER’S EDITOR 






only 


Direct from the 
man who gave you 
The Norton Utilities, 
Inside the IBM PC, 
and the Peter Norton 
Programmer's Guide. 





Peter Norton Computing, Inc., 2210 Wilshire Bolocand: 
Santa Monica, CA 90403, 213-453-236 1. Visa, 
Mastercard and phone orders welcome. 


The Norton Edito s a trademark of Peter Norton 





ily customized, and saved — 

ss Split-screen editing 

A 2 yon. erful condensed/outline display J 
Great for assembler, Pascal andC | 


Computing. Inc. C 1986 Peter Norton Computing 


that’s ightning fast with the hot 
features programmers need 


=NORTON 


"This is the program- 
mer’s editor that I wished 
I’d had when I wrote my 
Norton Utilities. You can 





program your way to 
glory with The Norton 
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COLUMNS 


Fr orth was forged for the purpose 
of programming: not to teach 
programming, not to serve as an en- 
vironment for learning, not to match 
pre-existing notational conventions. 
Charles Moore and the Forth devel- 
opers designed tools—and tools to 
create tools. Forth’s ad hoc develop- 
ment, rooted in experimentation and 
use, resulted in a comfortable fit 
with both the structure of the com- 
puter and the process of problem 
solving. 

I was reminded of this as I read 
Programmers at Work, a recent book 
by Susan Lammers (Redmond, 
Wash.: Microsoft Press, 1986). This 
collection of intriguing interviews 
with a selected group of innovative 
programmers reveals in their work 
some Forth-like tracks from time to 
time. I previously had encountered 
instances of similar convergent evo- 
lution, when programmers demon- 
strating a software development 
package with a surprisingly Forth- 
like structure stressed that they had 
not known or copied Forth but had 
arrived at the structure independent- 
ly, finding it the optimal solution to 
their programming problem. 

Given Forth’s power as a general 
tool and its use-based development, I 
believe them. A solution found once 
is likely to arise again, especially if it 
is optimal: the various paths to a solu- 
tion converge at the optimum. 

An instance of convergence is 


by Michael Ham 


found in Bob Carr’s comments on his 
work and design ideas in creating 
Framework. He talks, for instance, 
about granularity: “Users must be 
able to break their work, and the 
program, into separate pieces rather 
than dealing with a single, giant enti- 
ty.” Granularity and “homogeneity” 
(meaning that the architecture does 
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not have a lot of exceptions or special 
cases) amount to what is called fac- 
toring in the Forth culture. 

Factoring is not unique to Forth, of 
course. My speculation is that in 
Forth some tools are presented par- 
ticularly clearly because of Forth’s 
workaday evolution. Because these 
tools approach the optimal, they are 
likely to have been discovered in 
other contexts as well. 

Carr mentions that he “‘had to steal 
a terrific design notion Xerox origi- 
nated: All commands should act on 
data already selected or highlighted 
by the user. It is called the object- 
verb design, versus the verb-object 
design.’ Forth users will recognize 
that Forth uses the object-verb design 
extensively—putting the object on 
the stack and then executing the 
verb. But Forth did not take the idea 
from Xerox. The idea arises in the 
search for solutions, and experience 
directed different paths to that com- 
mon optimum. 

As Carr points out, the object-verb 
sequence shows its power by the de- 
gree to which it can do more work 
with fewer mechanisms. ‘Intuitive’ 
often means ‘‘what I am used to,” so I 
don't call the sequence intuitive. The 
sequence can be learned, of course, 
to the extent that it becomes second 
nature (witness the number of fans 
of Hewlett-Packard calculators), but 
the real argument in its favor comes 
from experience, which shows the 
power of the object-verb sequence 
and explains its emergence in vari- 
ous contexts other than Forth (and 
under various names). 

Programmers at Work will be in- 


STRUCTURED PROGRAMMING 


Software Design Rules 


teresting reading for any program- 
mer. Forth programmers will find 
not only various ideas familiar from 
Forth (though perhaps under differ- 
ent names) but also some mentions of 
Forth itself. Jef Raskin, for instance, 
discusses using Forth in his recent 
projects “because Forth is a rather 
compact language and is inexpensive 
to implement. It’s not my favorite 
language, but I thought it was suit- 
able for this particular application. I 
always believe you should use the 
right tool for the job.”’ 

Reading the book made me rumi- 
nate on the design rules that I follow. 
Here they are, hewn from my own 
experience. 


The User Interface 

Is Everything 

No matter how elegant the code, 
how ingenious the data structures, 
how efficient the file access, if the 
user interface is crude, clumsy, or 
confusing, the system will fail. The 
user interface refers to all interac- 
tions between users and the system: 
paper forms, computer messages, in- 
put procedures—all communication 
between users and the programs you 
have designed. 

The system procedures must fit us- 
ers’ inclinations. Things must be 
done in a “natural” way, with no 
penalties for guessing or experiment- 
ing. How do you know what is natu- 
ral for users? You can't ask them; you 
have to watch them. Watch them be- 
fore you design the system, and 
watch them as they use your system. 
Pay careful attention to what causes 
them to stumble or hesitate. You 
must distinguish hesitations that 
stem from accidental awkwardness 
(for example, the arrangement of the 
furniture, which can be rearranged, 
or habits derived from the current 
procedure) and hesitations that stem 
from intrinsic awkwardness (for ex- 
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ample, an unreachable key combina- 
tion or a complex instructional se- 
quence for a common task). 

The system must be comfortable 
for users for two reasons: first, to 
minimize error, and second, to en- 
courage users to trust the system. If 
the system doesn’t feel right and reli- 
able, it will not be used. 

This rule presents a particular 
challenge to programmers whose 
work habits were acquired writing 
batch programs in a mainframe en- 
vironment. There, the users are com- 
puter professionals and semiprofes- 
sionals: operators, production clerks, 
and even other programmers. Al- 
though the requirement for a good 
user interface still holds, the sophisti- 
cation and long-time experience of 
that user group can compensate to 
some degree for poor interface de- 
sign. Moreover, the batch environ- 
ment typically lacks interactive in- 
terfaces, in which users are 
confronted immediately and directly 
with the effects of poor design. 

Users of microcomputer pro- 
grams, on the other hand, are often 
not computer professionals. They 
are apt to be unfamiliar with the pe- 
culiarities of computer operation. 
Moreover, microcomputer programs 
are typically interactive in format 
and work with users face-to-face, as 
it were, instead of sending and re- 
ceiving notes. These users depend on 
your design to make things go right 
for them. 


Use Hindsight 

Early and Often 

Design awhile, then stop a bit and re- 
view what you have done. With 
hindsight, you can see how you 
could have done something better. 
Revise, do more, and use hindsight 
again. 

Note that, to use hindsight, you 
have to do something. It is good to 
plan and to know where your're go- 
ing, but if you spend too much time 
in planning the details, you won't 
have time to redo parts of the system 
after experience shows where it 
needs revision and enhancement. 
Don't forget: no matter how well you 
plan, when you show the final prod- 
uct to the users, you will be told, 
“That is wonderful. But I guess I for- 
got to tell you this, and we just found 
out we're going to have to have that, 
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and could you move that over, and I 
don’t think we'll use this part after 
all.”’ 

To produce software that truly fits 
users’ needs, you will learn to value 
iteration. You'll find that you must 
make closer and closer approxima- 
tions to what your customers or cli- 
ents want, or to what the situation 
requires, simply because the first fit 
(or the second) is never perfect. 

Plan for iteration and use it. Don’t 
hole up and work alone until you 
have the final, polished product and 


It’s an 
excellent idea 
to write the manual 
before vou start 
the system. 


then show that to the users: it will 
not in fact be the final product, and 
you will have wasted time complet- 
ing one developmental cycle when 
you could have completed several it- 
erations that work toward what is 
really needed. 


Design the Output First 

Using an iterative approach does not 
mean that you start with no plan at 
all. You must have some idea of 
where you're going, and that means 
that you and the user should first 
agree on the destination (the output), 
even if you subsequently agree to 
change it. If you work through sever- 
al drafts of the output, until both you 
and the user are satisfied with the 
format, content, definitions, se- 
quence, and timing, you won't find 
yourself designing input forms or 
procedures that collect data you nev- 
er use or (even worse) that fail to col- 
lect data that you need. Design pro- 
ceeds backward through the system, 
implementation forward. 


Document for You 

If you have clear documentation, 
well organized and readable, it 
means you truly understand the sys- 
tem and, because it is understand- 
able, it will be robust and easy to de- 
velop and maintain. The primary 


value of documentation is the pro- 
cess—working out in your own 
mind what you are doing and how 
you will do it. The secondary value is 
in having a record of what you have 
done, when you return to the system 
to make the inevitable changes. 

And what about users’ documenta- 
tion? It is an excellent idea to write 
the users’ manual before you start 
the system and let users read it to 
verify that the system operation 
makes sense in terms of the proce- 
dures and system objectives. Users 
will indeed read it: not yet having 
the system and curious about what 
youre planning, most users will 
pore over the document. But after 
the system is up, the users’ documen- 
tation should (ideally) be unneces- 
sary. Users will then generally go to 
the system, not to the manual. The 
acid test is whether the system itself 
(without documentation) can lead na- 
ive users correctly through standard 
operations while protecting itself 
against casual errors. 

Jam not suggesting that all applica- 
tion programs can meet this stand- 
ard. Many programs have special 
features that make documentation 
necessary. But even those programs 
will fare better if their essential doc- 
umentation is only a page. 

If users say your documentation is 
hard to read and confusing, believe 
them. Don’t go through the odd (but 
unfortunately common) exercise of 
trying to prove to them that the doc- 
umentation is clear. If users cannot 
read or understand the documenta- 
tion, the documentation is unaccept- 
able. If users find the program hard 
to use, the program is indeed hard to 
use. If someone doesn’t like liver, the 
statement ‘‘You just never had it 
cooked properly” seldom convinces 
them that liver is delicious. 


Make the Program 
Bulletproof 

Random pecking of keys should not 
Cause a catastrophe. The input rou- 
tines should filter out all dangerous 
or irrelevant input, and the program 
should also be alert for every inter- 
nal awkwardness it might encounter 
in operational use: zero divisors, try- 
ing to append records from file A to 
file B when A = B, the wrong dis- 
kette being used as the input master 
file, trying to sort a single record, and 
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so forth. 

Avoid maddening tricks. For in- 
stance, don’t ask users to confirm an 
action that subsequently proves im- 
possible to do. Example: A user en- 
ters a request to delete record 357. 
The program responds ‘You wish to 
delete record 357 (Y/N)?” and the 
user dutifully responds “‘Y.”’ The pro- 
gram then responds, “Record 357 not 
on file. Request aborted.’ The user 
rightfully feels tricked. If the record 
can’t be deleted, the program should 
have said so in the first place instead 
of going through the miniquiz on in- 
tention. Even better, the confirma- 
tion question will display informa- 
tion from the record to the user, 
asking whether this is the record to 
delete. This approach satisfies both 
needs: the user is informed if there is 
no record to delete or, if the record is 
present, can readily confirm that it is 
the right record to delete. 

Another example: In one program 
the user has the option of appending 
one file to another, and several 
things can go wrong with that re- 
quest: the resulting file might be larg- 
er than legal for this particular appli- 
cation; the user may have specified 
the same file twice (absentmindedly 
trying to append a file to itself); or the 
two files may have had one or more 
elements in common, not allowed in 
this application. The program should 
check for all three possibilities be- 
fore asking the user to confirm that 
file A is to be appended to file B; if the 
files cannot be appended, the appro- 
priate error message should be dis- 
played instead of the request for con- 
firmation. This is only common 
sense, of course, but it is common 
sense applied from the user's view- 
point. The user’s viewpoint must also 
be one of the designer's viewpoints. 

I particularly dislike messages 
such as “Invalid option” or ““Nonnu- 
meric. Reenter.’’ A good program 
should tactfully ignore inappropri- 
ate data. If only numeric input is val- 
id, only numeric keys should func- 
tion. Pressing any other key should 
produce no effect at all. The same 
goes for menu selection. “Invalid op- 
tion” should never be necessary be- 


cause the program should recognize 
only valid keys. 
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Users should be able to tell from 
the lack of action that something is 
wrong. If A, B, and Care the only val-. 


id data, then only the A, B, andC keys 
should work—and they should work 
equally well whether capitalized or 
not. 

The program must meet users’ rea- 
sonable expectations. For example, 
in one program it is necessary to de- 
termine the user’s sex. For consisten- 
cy with earlier menus, the user is 
asked to respond to the menu “1— 
Female, 2—Male,” but the program 
accepts F, f, M, and m in addition to 1 
and 2. Similarly, a menu consisting of 
‘“1—Yes, 2—No”’ should accept 1, 2, Y, 
y, N, or n—and even a Carriage re- 
turn if the default answer is clearly 
specified. An L typed when a numer- 
al is expected is undoubtedly meant 
as a 1; why not accept it? Don’t let the 
user complain, “It should have 
known what I meant.” When the 
program should have known, make 
sure it does know. 

The program thus hides within it- 
self responses to all anticipated user 
inputs, including users’ errors. The 
better job the designer does in antici- 
pating users’ moves, the more pleas- 
ant the program is to use. Users typi- 
cally are not even aware that the 
program has responded from some 
option that lay in wait for the antici- 
patable error or intention. Success is 
achieved when the program re- 
sponds as users expect, even when 
they do not do precisely what was 
asked. The options that users recog- 
nize will be only the tip of the 
iceberg. 


Let Users Know 
What’s Happening 
Invalid input should evoke a re- 
sponse if it helps users. For example, 
if users attempt an illegal deletion of 
some sort, the program must so in- 
form them, lest they get the impres- 
sion that the deletion was accom- 
plished. Or if the datum is a number 
that must lie within a range, the pro- 
gram should respond to an invalid 
entry by asking for reentry. The re- 
quest for reentry should state the val- 
id range because the users’ invalid in- 
put suggests they may not know the 
valid range. 

A nice example is the defining 
word LIMITS that a friend added to 
his Forth. LIMITS defines data input 






commands and expects at the time of 


definition the limits on the input 
range: 1 10 LIMITS PITCH defines the , 
command PITCH with limits 1 and 10. 
When PITCH is executed, it displays 
“Enter PITCH’ and waits for a num- 
ber (using a word such as DIGITS, de- 
fined in the April 1987 Structured 
Programming column). The entered 
number is accepted only if it is with- 
in the limits. If it is not, an informa- 
tive error message is displayed: ‘‘In- 
put out of range: lower bound 1, 
upper bound 10. Reenter number.” 
LIMITS is used to define any com- 
mand expecting bounded numeric 
input. 

Cute messages pall quickly. Be 
businesslike and brief, and always 
keep users informed. Long, silent 
waits—such as 5 seconds—make us- 
ers uneasy. Tell them what's going 
on: “Program loading’; ‘“‘Checking 
records”; whatever. When possible, 
display a countdown so users Can es- 
timate the rate of progress. 


Be Consistent 

No matter how much trouble it is, 
take pains to be consistent in every 
way possible: punctuation, signifi- 
cance of colors, mode of input, loca- 
tion of messages, and so on. If your 
menus are numbered lists from 
which users make a selection by en- 
tering the appropriate number, don't 
suddenly switch to a list in which 
they must enter the initial letter of 
the command. If the message ‘‘Press 
space bar to continue’ appears in po- 
sition 25 of line 20 in one screen, it 
should be in the same place—if possi- 
ble—on every screen in which it is 
used. Users will quickly become ac- 
customed to its location and expect to 
see it there. Users feel most secure 
when their expectations prove 
reliable. 

Consistency doesn’t come easily. 
For one thing, different sections of 
the program will have been written 
at different times. As a result, you 
must run through the “final” draft 
many times to be sure that it is consis- 
tent—that it feels the same in all the 
subroutines, that it embodies a con- 
sistent design and approach. Consis- 
tency comforts users and makes 
your product seem more trustwor- 
thy. It also makes the system easier to 


use and less likely to be a cause of 
error. 
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Give Every Routine 

a Safe Exit 

Because users are (probably) using 
the program without reading the 
documentation (or with only a vague 
recollection of it), the program must 
have no traps: routines that, once en- 
tered, cannot be escaped from until 
something is done—for instance, 
adding a record or deleting one. If us- 
ers select “Add record” from the 
menu, the add-record template 
should offer in the first entry a possi- 
ble “escape” value that, when used, 
returns them to the menu. The Es- 
cape key can be used as a generic es- 
cape. 

Suppose that the first entry in add- 
ing a record is the serial or ID num- 
ber. A blank serial or ID number is an 
obvious way to escape the routine. 
The most general escape command 
is, of course, the “undo” key, which 
retracts the last command given. The 
undo may not be feasible in a given 
application, but some escape mecha- 
nism must be provided. 

The escape value also makes it easy 
for users to work through batched 
input. Few users will add one record, 
delete a second, revise a third, add a 
fourth, run a list, back to another de- 
letion, and so on. They will normally 
work through a group of new re- 
cords, adding them all, then turn toa 
batch of revisions and, finally, dele- 
tions—working through all cases of a 
particular type. In such applications, 
the system should automatically re- 
turn to do another action of the last 
type until users signify a desire to es- 
cape that routine. 

One observation from experience: 
users usually consider deletion as a 
kind of revision, so your revision 
routine should usually include a way 
to delete the record instead of 
(or in addition to) a separate delete 
routine. 


Watch Users 

Use Your System 

I suggested this before, but it bears 
repeating. You cannot design a good 
system solely through your ideas of 
how things should be done. You also 
need to learn how they are done. 
You may learn that a particular ap- 
plication has users who do not batch 
input. By seeing how the system is 
used, you can polish it to remove any 
impediments it offers them, and you 
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may also be able to suggest substan- 
tial changes that will make their 
work easier. Don’t wait for users to 
think up improvements. 

Obviously, if users do suggest an 
idea, listen closely. Users almost cer- 
tainly understand the ins and outs of 
the job better than you do. But you 
can't shift the burden of good design 
onto their shoulders. Your job is to 
make the system responsive to their 
needs. This always requires close ob- 
servation, which will sometimes lead 
not just to refinements but also to ma- 
jor changes. 

Many users, for example, don’t 
know what they really need; most 
will talk about the means rather than 
the goal. Because the designer is of- 
ten thinking also about how to do 
things, it is easy to assume the goal 
and design the “how,” rather than 
rigorously focusing first on “why.” 
Systems that simply automate the ex- 
isting clerical functions are an exam- 
ple of looking only at the how. Sys- 
tems that radically redefine a 
process or final product, simplifying 
the entire procedure, are the result 
of repeatedly asking, ‘Why? Why do 
you need that? What do you do with 
it? What is its purpose? Who uses it? 
What do they do with it? What is it 
the means to?” and then finding the 
most efficient way to achieve the 
overall goals and objectives. 


Design Programs from 

the Top Down, Experiment 
jrom the Bottom Up 

I sometimes call this “sideways de- 
velopment” because it is not com- 
pletely top-down or bottom-up. The 
top-down design goes well if you 
write a functional analysis of the en- 
tire program in a chunk of several 
words, then a functional analysis of 
those words, and so on: 


PROGRAM: INTRO BEGIN INITIALIZE 
MAIN UNTIL DONE: 

INTRO: GET.DATE CHECK.DATA. 
DISKETTE ; 
INITIALIZE: FIRST. MENU CASE NEW 
.TEST OLD.TEST MERGE.TEST 
QUIT.WORK ENDCASE ; 
MAIN: BEGIN SECOND.MENU CASE AP- 
PEND REVISE REF.LIST SUMMARY 
QUIT.TEST ENDCASE UNTIL ; 


and so forth. 
If your programming language 
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STRUCTURED PROGRAMMING 
(continued from page 115) 


provides the tools, your design and 
exploratory implementation of the 
elements of the design should be con- 
current: bottom-up coding to proto- 
type and test solutions, which are 
then woven into the top-down de- 
sign process. 

The top-down descriptive analysis 
encourages you to see the program 
or system in terms of its major logical 
divisions, to see those divisions in 
terms of their major parts, and so on. 
This leads to a clean design that is 
easy to write, to read, and to main- 
tain and that keeps you from getting 
lost, unable to see the forest for the 
trees. Writing the analysis will not be 
easy, and you will probably have to 
go through several drafts of each ma- 
jor function before they fit comfort- 
ably together. 

The bottom-up exploratory pro- 
gramming will help you understand 
the problem better by allowing you 
to test tentative solutions. Explor- 
atory programming works well only 
in truly interactive languages, in 
which the write-compile-test-revise 
cycle is uninterrupted by waits. In 
noninteractive languages, explora- 
tion is hindered by the overhead of 
preparing the source file, running 
the compiler to create an object file, 
linking the object file, and so on. 
These mechanical requirements dis- 
rupt your train of thought and dis- 
courage quick checking of short pro- 
cedures. Exploration in_ such 
languages tends to become a prema- 
ture production of long procedures 
rather than a quick interplay with 
small and simple prototypes. 

Note that moving the colons in the 
phrases shown earlier to the start of 
each phrase produces Forth defini- 
tions. Forth was designed to lend it- 
self to exploratory programming. Its 
structure and ability to accept new 
commands makes for an easy transi- 
tion from the functional analysis to 
source code. The exploratory process 
produces a tested set of elemental 
commands and functions fitted to 
the problem, and the top-down anal- 
ysis provides the high-level words 
for the final program. You then can 
start at the bottom level of the analy- 
sis and enter the elements defined in 
your exploration and the phrases de- 
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fined in your analysis, testing your 
way back up the chain until you 
reach the final definition, which is 
the program. 


See How the Flow of 
Activities Wants to Go 

Look under the surface to find the 
natural sequence and direction of 
events. The actual procedure in 
place is only an approximation (and 
sometimes a poor approximation) of 
the ‘“‘true”’ procedure, the ideal cen- 
ter that has pulled the actual proce- 
dure into its current configuration. 
The true procedure is the procedure 
in perfect focus; the actual proce- 
dure is always an approximation: 
slightly blurred, slightly off center. 
As the implemented procedure ap- 
proaches the true procedure, things 
work more smoothly because effort 
is not spent in countering the natural 
tendencies of the work. 

If users consistently make some er- 
ror in the data-entry procedures, it is 
a sign that the procedures are wrong. 
If users must stop to calculate wheth- 
er a set of data meets the require- 
ments for the next program step, you 
should immediately suspect that the 
program itself should make the 
check. 

You can readily find examples in 
noncomputer systems as well. The 
Army Corps of Engineers stopped 
the flow of sand down the Atlantic 
Coast, and then they found the south- 
erly beaches vanishing as the sand 
washed away and was not replaced 
by sand from the north. Now bull- 
dozers and dollars work to maintain 
beaches once renewed through nat- 
ural processes. Because the system's 
natural flow was disrupted, much ef- 
fort is devoted to a poor approxima- 
tion of beach renewal. 

Sometimes, to encourage a certain 
flow of events, you can design seem- 
ing inefficiencies into a procedure. 
For example, papercutting machines 
used in binderies can also cut people. 
One way to prevent accidents is to 
hire floor supervisors who constant- 
ly watch the operators and jerk them 
back if their hands stray too near the 
blade. A better way is to build the 
machines so that two switches, in- 
stead of one, must be closed to make 
the cut. Although it is easy and even 
cheaper to design the machine so 
that only a single switch is used, us- 





ing two switches occupies both the 
operator’s hands while the blade 
cuts. The second switch acts as an ai- 
leron in the flow of events, pulling 
the natural sequence in the direction 
the designer wants it to go. 

Poorly designed systems, which di- 
verge markedly from their natural 
center and course, exhibit great tur- 
bulence from the continual efforts 
required to keep the procedure on 
course. In a large system, the turbu- 
lence may be manifested as many su- 
pervisors or frequent meetings or re- 
runs or down time or correction 
passes. Well-designed systems, on 
the other hand, will flow smoothly 
and swiftly and with almost no su- 
pervision or visible effort. The sys- 
tem itself pulls any inadvertent devi- 
ations back into the natural flow and 
thus is self-correcting. The feedback 
into well-designed systems keeps 
them on course; the feedback in 
poorly designed systems pushes 
them further off course, making us- 
ers exercise constant vigilance and 
effort to keep the system running. 

These rules are stated as if you 
were designing a system for a cus- 
tomer or client, but in fact the user 
will often be yourself. An iterative 
approach will almost always pro- 
duce the most satisfactory system or 
program. You certainly want, for 
yourself, a system that doesn't re- 
quire extensive documentation to 
run, a system that is robust and easy 
to maintain. Treat work for yourself 
with the same professional care that 
you would devote to work meant for 
others. Not only will you get better 
software but you will also acquire 
the habit of thoughtful and alert 
design. 


Envoi 

A new job and new responsibilities 
have forced me to choose among the 
activities I can do. I have enjoyed the 
opportunity to discuss Forth-related 
topics in these pages, and in the fu- 
ture I may have occasion to speak out 
again. But my contributions as a reg- 
ular columnist end with this column. 
My current work includes an intro- 
ductory book on programming in 
Forth, so my involvement with this 
fascinating language continues. 


DDJ 
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COLUMNS 


ARTIFICIAL INTELLIGENCE 


The Xerox 1186 LISP Machine 


his month I'll describe the Xe- 

rox 1186, an AI workstation, or 
LISP machine, I’ve been working 
with recently. In the process I hope 
to show why and how a piece of ded- 
icated hardware is optimized for a 
language such as LISP and share some 
programming insights that have 
come out of LISP machine 
development. 

The Xerox 1186, nicknamed Day- 
break, provides several unique, pow- 
erful features at a relatively low cost. 
It is the result of several years of ex- 
perience Xerox has had in producing 
advanced workstations intended spe- 
cifically for interactive, exploratory 
programming in LISP for AI applica- 
tions and research. 

But LISP machines didn't start at 
Xerox. 


How LISP Machines 

Came to Be 

LISP machines grew out of the hacker 
culture that prevailed at the MIT AI 
lab in the 60s. You'll find the story of 
those days told in accessible terms in 
Steven Levy’s book Hackers (Dell 
1984). Richard Greenblatt, one of the 
main ‘‘hacker heroes’’ in Levy’s 
book, invented the LISP machine. 
You'll find the technical history in 
his article, ‘“‘The LISP Machine,” in 
the book Interactive Programming 
Environments (Barstow, David, et al., 


by Ernest R. Tello 


McGraw-Hill 1984). 

But why design a special computer 
just to run the LISP programming lan- 
guage? The motivation was partly 
technical, partly pure hacker cul- 
ture. The main technical problem 
that Greenblatt and his colleagues 
were trying to solve was that, be- 
cause most serious AI programs tend 
to be rather large, they need a partic- 
ularly efficient environment for exe- 
cution and development. The other 
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consideration that strongly influ- 
enced the LISP machine developers 
was the hacker antipathy to time 
sharing. The LISP machine had to be 
a personal computer rather than a 
time-shared machine so that the LISP 
hackers could have full control of the 
machine’s resources. They had expe- 
rienced what this meant with the 
older PDP-1 and PDP-6 machines, and 
they had seen and been impressed 
by the Alto personal computer that 
had been built at Xerox PARC, the 
first microcoded personal computer 
and the precursor of both the cur- 
rent generation of LISP machines and 
personal computers alike. 

One way in which the machine 
could be optimized for LISP was by 
providing a large virtual memory ar- 
chitecture. Because of the large size 
of many AI programs, it was (at the 
time) a necessity for such programs 
to reside in virtual memory. Because 
the performance of large disk drives 
used on large time-shared machines 
had little better performance than 
those that could be used on small, 
personal machines, Greenblatt ar- 
gued that, for virtual memory sys- 
tems, personal, single-user machines 
were more appropriate and cost- 
effective. 

The most peculiar aspect of LISP 
implementation to emerge from the 
development of LISP machines was 
the CDR-coding scheme used for list 
storage. The linked lists that are the 
heart of LISP code and data storage 
typically take up twice the space that 
comparable arrays require. The 
strategy of CDR coding is based on the 


fact that many of the lists in a LISP 
program are never or seldom modi- 
fied. In this case, why waste the 
memory for the extra cell? The stor- 
age system Greenblatt arrived at gets 
the best of both worlds. As long as a 
list is not modified, it is stored as an 
array. Once the list is modified, fast 
microcode routines reassign the sec- 
tion of the list, from the point of the 
modification on, into the normal 
linked-list cell format in high 
memory. 


CDR Coding, Tagged 
Architectures, and Invisible 
Pointers 

There are at least five major require- 
ments for efficient symbolic process- 
ing systems—that is, for an efficient 
LISP system—compact storage of 
linked-list structures; fast function- 
calling mechanisms; rapid run-time 
type checking; fast, incremental gar- 
bage collection; and efficient and 
powerful virtual memory manage- 
ment. The current generation of LISP 
machines is based on an architecture 
that addresses all these issues with an 
ingenious and elegant strategy. The 
basic ingredients of this strategy are 
a tagged architecture, CDR coding, in- 
visible pointers, custom processors 
designed to enable microcoding of 
high-level instructions, and incre- 
mental garbage collection algo- 
rithms. 

The original CONS and CADR ma- 
chines developed at MIT used a 32-bit 
word size to implement the tag field 
CDR-coding strategy. As illustrated in 
Figure 1, page 121, the compressed 
list storage format was based on di- 
viding the 32-bit data word into four 
different segments: a 24-bit data area 
for representing the first element of 
a list or CAR, a 5-bit data type tag field, 
a 2-bit CDR-code tag field, and a 1-bit 
garbage collection (GO) tag. The 2-bit 
CDR-code tags are used to signify the 
four values CDR-NEXT, CDR-NIL, CDR- 
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Rextected Mode and 32-bit Performance Today 


Introducing OS/286™ and OS/386™, 
extensions to MS-DOS 3.x that enable 
full use of the 80286 and 80386. Now 
you get direct access to all available 
memory, not just an archaic 640K. 


OS/286 and OS/386 propel your pro- 
grams beyond the limitations of DOS, 
without forcing you to start all over. 


Moving to protected mode is simple 
because OS/286 and OS/386 give you 
the same interface as DOS. The hard- 
ware is still under your direct control, 
many 16-bit compilers already gen- 
erate code suitable for OS/286 and 
OS/386, and existing highly tuned, 
machine-specific subroutines running 
in real mode can be efficiently called 
from within protected mode. Since 
most of your own code won’t need to be 
rewritten, your programming invest- 
ment is preserved. And because 
OS/286 and OS/386 work with DOS 
3.x, they don’t affect other programs, 
device drivers, or TSRs. 


In addition to the larger address 
space offered by protected mode, 
OS/386 adds 32-bit performance to 
systems like the Compaq™ 386 
which, until now, have been shackled 
to 8086 emulation. 


OS/386 can be customized to give 
unmodified DOS programs up to 900k 
on 386 systems, regardless of how 
many TSR’s, networks, disk caches, 
etc., are installed. 






































OS/286"™ and OS/386™ Features: 


«Huge address space (4GB on the 
80386) 

¢ 32-bit performance (80386) 

¢ No rewriting of device drivers 

¢ Compact code (under 64k) 

¢ Support for all existing DOS calls 

¢ New INT-21 calls for manipulating 
segments, invoking real-mode rou- 
tines and interrupt handlers, and 
addressing physical memory directly 

¢ Full interrupt vector support 

«Powerful debugging: concurrent 
DOS environment while debugging 
protected mode programs 

¢ The ability to run non-Windows pro- 
grams in a window 


A.I. Architects gives you a 
complete development toolkit: 
OS/286 or OS/386 kernel and linker, 
Symbolic debugger and command 
processor 
Options include: 

16-bit and 32-bit compilers 

High C, Professional Pascal, or 

F77L FORTRAN 

32-bit Assembler 

386 HummingBoard™ 

The basic Developer’s Kit is $495. 
32-bit Compilers are $895. Run time 
licenses for OS/286 and OS/386 are 

_ __ available at nominal cost. 
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A.l. Architect's 
HummingBoard™ is a high perform- 
ance 386 coprocessor for the PC-XT, 
AT and compatibles available with 
the 80387 and 2-24 Mbytes of RAM. 





At. 


Architects, Inc. 


One Kendall Square 
Cambridge, Massachusetts 02139 
(617) 577-8052 


OS/286, OS/386 and HummingBoard are trademarks of A-I. Architects, Inc., Compaq Deskpro 386 is a trademark of Compaq Computer Corp., High C and Professional Pascal are 
trademarks of Metaware, Inc., F77L FORTRAN is a trademark of Lahey Computer Systems, Inc., Microsoft and MS-DOS are trademarks of Microsoft Corp., VAX 8600 is a 
trademark of Digital Equipment Corp., Sun 3/160 is a trademark of Sun Microsystems, Inc., Unix is a trademark of AT&T. 
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NORMAL, and CDR-ERROR. This 
scheme allows list structures to be 
stored as ordinary vectors with a 
space savings of close to 50 percent. 
When a list is stored as an ordinary 
array, each word in the array carries 
the CDR-NEXT tag, except for the last 
item in the list, which is tagged CDR- 
NIL. When the list must be modified 
and when the sequential storage can 
no longer be maintained, the tag of 
the last word prior to the point of 
modification is changed to CDR-NOR- 


System requirements: IBM PC 
MS-DOS is a registered trademark of » 
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MAL, which indicates that the nor- 
mal list storage format is now being 
used. In this case, the next word 
forms the second cell in the standard 
CONS cell pointer structure. 

With this storage scheme, howev- 
er, there is still a major drawback. 
When list modifications are made, 
the accessing functions can be slow 
and inefficient because many of the 
list elements must be moved into a 
fresh area of memory. This problem 
was solved by the invention of the in- 
visible pointer. An invisible pointer is 
an indirect addressing scheme that is 
implemented on the level of the data 





itself rather than through an instruc- 
tion. It’s called invisible because 
there is no way for most of the sys- 
tem to see that the indirection is oc- 
curring. Only the lowest-level, mem- 
ory-referencing operations handle 
the invisible pointers. 

The invisible pointers make “clo- 
sure” possible—the linking of inter- 
nal value cells to external value cells. 
No macroinstructions are required to 
do this. When the system seeks to 
read or write to an element that has 
been restored in the CONS cell format, 
it is automatically sent by the invisi- 
ble pointer to the new location. In 
this way the linkage of elements is 
maintained as efficiently as possible 
with no need to be concerned with it 
on the programming level. 

Incremental garbage collection 
means taking out a little bit of gar- 
bage frequently so that you never 
reach the point at which things have 
to completely shut down while a 
large pileup of garbage is taken out. 
Most LISP systems today claim to 
have this capability. 


The Xerox 1186 

The 1186 closely resembles an earlier 
machine from Xerox—the 1108, or 
Dandelion. It runs all the same soft- 
ware, but the hardware has been 
streamlined using up-to-the-minute 
VLSI technology to provide a surpris- 
ing amount of power for such a small 
package. The processing unit of the 
1186 is a compact, vertical standing 
module 21% inches high, 92 inches 
wide, and 1212 inches deep. The large 
19-inch, high-resolution mono- 
chrome display monitor is about the 
size of four Macintosh screens, offer- 
ing a resolution of 862 X 1152 pixels. A 
15-inch monitor is also available with 
a 632X833-pixel resolution. Both of 
these monitors have the same pixel 
density, though—80 pixels per inch. 
Color bit-map routines are supplied 
with the software for using graphics 
with a color display. The keyboard 
on the 1186 is the same as that used 
on the Xerox word-processing work- 
station and can be readily assigned 
all the keys of the PC series 
computers. 

The main CPU of the 1186 uses a 
TTL bit-slice processor based on a 
high-speed version of the Advanced 
Micro Devices 2901C chip, which has 
been augmented with custom LSI and 
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gate arrays for microinstruction 
latching and bus decoding and arbi- 
tration. It also uses a front-end pro- 
cessor, based on the Intel 80186, and 
an option is available that uses a sec- 
ond 80186 to permit IBM PC emula- 
tion. The 1186 comes with a mini- 
mum of 1.6 megabytes of RAM, 
which is expandable to 3.5 mega- 
bytes, and hard disks are available in 
20-, 40-, and 80-megabyte configura- 
tions. A variety of bus interface op- 
tions are available that allow use of 
IBM PC, Multibus, and IEEE-488 pe- 
ripherals. The power requirement 
for the 1186 is about 800 watts. 

As with all LISP machines, the 1186 
employs a virtual memory system 
whose behavior is largely responsi- 
ble for the performance quality us- 
ers experience. Virtual memory is 
provided in pages of 512K each and is 
allocated in two-page chunks called 
quanta. A total of 4 to 5 megabytes of 
virtual memory is required for the 
system to “‘say hello,’ and typical ap- 
plications need between 8 to 10 
megabytes. There is no such thing as 
enough RAM with this kind of ma- 
chine; the only way to get maximum 
performance is with maximum RAM. 

With a 16-bit address bus, the 1186 
cannot use the sort of tagged archi- 
tecture that I described earlier and 
that is found on many LISP machines. 
The virtual memory architecture is 
built on an ingenious 32-bit address- 
ing scheme, however. The 1186 
reads in the 32 bits in two chunks, 16 
bits at a time, but the CPU does not 
have to wait for the second 16 bits to 
know which address is referenced. 

The 1186 uses a form of incremen- 
tal garbage collection, which is cur- 
rently the feature that everyone 
claims to have. 


The Programming Environment 
On the 1186, the main interpreter, or 
LISP listener, is called the Executive 
and is accessed in its own window. 
One of the special features of the in- 
teractive LISP Executive is the Pro- 
grammer’s Assistant. 

Pressing the right mouse button in 
a desktop bit-map area always re- 
sults in the main pop-up menu open- 
ing, which allows you to access a va- 
riety of different facilities, 
depending on the options installed. 
On the machine I evaluated, which 
had the LOOPS AI system installed, 
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Figure 1: Original MIT implementation of tag field CDR coding in a 32-bit 
word 
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Dbasex 


programming tools 


*Clipper, FoxBASE+, 
dBASE, QuickSilver 


The Ul Programmer 


Ul is the first professional code generator; we 
wrote UI for programmers who want to automate 
their work but cannot use code that is ‘almost’ 
good enough. If your user interfaces include 
bounce-bar menus, pop-up help screens and 
the other features of today’s best programs, you 
will gain an order of magnitude in productivity 
with UI. 


Ul is a second generation, programmable pro- 
duct — so your code comes out your way. 
Application specific edits, for instance, can be 
placed in the Ul ‘template’ which controls the 
generation. Edit the screen appearance until it 
‘looks and feels’ perfect. Everytime you generate 
code, your special logic is preserved. 


Speaking of editing the screen, Ul includes a 
powerful, 3-D screen editor, so you can draw 
pop-up help boxes over your pull-down menus, 
over your application. 


The Documentor 


To run Doc, you just tell it the name of the main- 
line routine and make sure your printer has a lot 
of paper! (Sure, you can have the output go to 
the screen or a file, too.) 


You can tailor your documentation to include any 
or all of: a table of contents, system tree diagram 
(main line is the root), hierarchy (box diagram) 
charts for each module, action diagrams (modern 
style flow charts) for each PRG or procedure, 
DBF listings (structure, indexes, more), where 
used/updated listings for fields and all variables 
— by module and by line number within each 
module. 


Our written money-back satisfaction guarantee 
set a new standard when we began it in 1985. 
(Return rate to date: 9.6% and dropping!) No 
copy protection, royalties or other nonsense. 


Suggested retail: $295 each, (800) support 
included. At your dealer today. Call us for a very 
special offer on our latest release! (800) 233- 
3569 or, in NY, (212) 406-7026. 


WallSoft 


The Computer Aided Software 


Engineering Corporation 
233 Broadway, Suite 869, New York, NY 10279 
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ARTIFICIAL INTELLIGENCE 
(continued from page 121) 


the menu looked like that shown in 
Example 1, below. Menu items with 
an arrow head to the right sprout 
submenus off to the right if you drag 
the mouse across them. Windows on 
the 1186 are completely independent 
of one another and can be written to, 
in principle, by any number of 
processes. 

Any window or icon on the 1186 
also has an associated standard menu 
that permits operations such as open- 
ing and closing and moving the 
window. 


INTERLISP-D 

The version of LISP that has been 
available on Xerox LISP machines is a 
special version of INTERLISP, a dialect 
of the language that goes back to a 
version of LISP that was first imple- 
mented on the PDP-1 by Bolt, Ber- 
anek, and Newman (BBN) in 1967. In 
1972, the name INTERLISP was first 
used to describe the version of LISP 
that was implemented as a joint ef- 
fort of BBN and Xerox PARC. This dia- 
lect caught on and resulted in the im- 
plementation of INTERLISP on the 
Xerox Alto in 1974. INTERLISP-D is the 
dialect of LISP that has grown out of 
this as the Alto gave rise to a series of 
custom-microcoded D machines, to 
which the Daybreak is the most re- 
cent addition. 

The syntax of INTERLISP-D com- 
bines several different constructions, 
old and new. The way one version of 
the factorial program looks with this 
syntax is: 


(DEFINEO (FACTORIAL (X) 
(IF (ZEROP X) THEN 1 


Loops Iccn > 
Dinfo 
Sketch 
VStats 
AR Edit > 
FileBrowser 
CHAT 
Idle 
SaveVM 


Snap 
HardCopy > 
PSW 
Tedit 
SendMail 
PCEmulation 


Example 1: The Xerox 1186’s main 
menu with LOOPS installed 





ELSE (ITIMES X (FACTORIAL (SUB1 X] 


Here ITIMES is a function for integer 
multiplication. The value it returns is 
always an integer; if you pass it a dec- 
imal as an argument, it rounds. This 
function also illustrates the JF... 

THEN... ELSE macro. You can, of 
course, use the traditional COND, but 
INTERLISP-D also provides this more- 
readable syntax for writing condi- 
tional tests... 

Any time you may need documen- 
tation on a function, Dinfo is right 
nearby. Dinfo is the complete docu- 
mentation for INTERLISP-D that is 
available in a flexible on-line facility 
that includes a graphic tree display 
of all the topics in the documentation 
system. Besides being accessible 
through the graphic browser inter- 
face, the detailed documentation can 
be accessed dynamically for topics as 
they arise. 

Here is a feature I really like: if you 
begin to enter a LISP function in the 
Executive, then type a ?, the system 
looks up the appropriate topic in 
Dinfo, opens a new window, and dis- 
plays in it detailed documentation 
for the function. The graphics 
browser is also displayed with the 
current node highlighted so that you 
can select related topics if you like. 
This is a remarkably convenient and 
useful way to provide such elaborate 
documentation for a programming 
environment. 

By the time this column appears, 
Common LISP will also be available 
on the 1186 in its own package or 
separate namespace. The imple- 
mentation of Common LISP is a full 
implementation, developed by ex- 
tending the kernel of INTERLISP to 
include all the features of the Com- 
mon LISP standard. Because of this, 
statements in INTERLISP and Com- 
mon LISP can be intermixed freely 
in applications, and existing pro- 
grams written in either of the two 
dialects can be run without making 
any major changes. Also available 
for the 1186 is Quintus PROLOG, a 
standard version of PROLOG making 
use of microinstructions that allow 
a processing speed of about 50,000 
LIPS (logical instructions per sec- 
ond). The PROLOG implementation 
is configured in such a way that ap- 
plications can be written partly in 
LISP and partly in PROLOG. 
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Real programmers don't use dBASE. Or do they? 

Were finding that some very swift programmers are using it to 
write some very fast applications, 
and are completing their 
projects much more quickly, 


With dBASE used like 


But they cheat. 

They use our Clipper™ 
compiler to combine dBASE™ 
with C and assembler. 


= Nantucket. 


© Nantucket Corporation 1987 Clipper is a trademark of Nantucket Corporation; dBASE isn't. 


pseudo-code, they can then quickly create 
prototypes that actually run. 

Then, with dBASE doing the high-level database functions, 
they use our Clipper compiler to link in C or assembly language 
modules from their own bag of tricks. 

And they're finding that they're linking in less than they 
expected because Clipper compiled code runs so fast and 
because of Clipper's built-in enhancements. 

Clipper includes easy networking that provides file and 
record locking the way it should be done. 

Fast screens that can be treated as memory variables and 
eliminate the need for direct screen writes and all that tortuous 
heap management code. pes 

Box commands that make 
windowing a breeze. And more. 

So if youd like to use your time 
more productively, check us out: 
Nantucket Corporation, 

12555 W. Jefferson Boulevard, 
Los Angeles, CA 90066. 

Or if youre on deadline, call 

(213) 390-7923 today. 


Clipper could get you out of 
the soup. 





In Europe: Nantucket Corporation (Europe) 2 Bluecoats Avenue, Fore Street, Hertford, Herts SG14 1PB Telephone 0992 554621. 


CIRCLE 220 ON READER SERVICE CARD 





VERSION CONTROL SYSTEM 


TLIB™ keeps ALL versions of your program in ONE 
compact library file, even with hundreds of revisions! 
e Fastest, most powerful version control system you can 


buy. Nothing else comes close! TLIB updates libraries 
faster than some text editors can load and save files. 


e LAN-compatible! Shared libraries with PC Net, Novell, 
etc. Check-in/out locking for multi-programmer projects. 


e Synchronized control of multiple related source files. 
e Easy to use. Menu or DOS command line parmeters. 


e Frugal with disk space. Libraries are more compact than 
with most other version control systems. And TLIB 
uses no temporary files, so you can maintain a 300K 
library on one 360K diskette, with room to spare, even 
with TLIB itself on the same disk. 


e Free we Landon Dyer’s excellent public domain MAKE 
utility (.EXE, plus source code for DOS & VAX/VMS). 


e Plus: File compare utility. Virtually unlimited source file 
size. Date, comments with each version. Configurable 
user interface, and many configurable options, like: read- 
only libraries; automatic tab/blank conversion; insertion 
of revision history comment block in the source file. 


PC/MS-DOS 2.x & 3.x Just $99.95 + $3 s/h Visa/MC 
BURTON SYSTEMS SOFTWARE 
P.O. Box 4156, Cary, NC 27511-4156 
(919) 469-3068 
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subscription 
Problems? 


No Problem! 


© 


Give us a call and we'll 
straighten it out. Today. 


Outside California 
CALL TOLL FREE: 800-324-3333 
Inside California 
CALL: 619-485-6535 or 6536 
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ARTIFICIAL INTELLIGENCE 
(continued from page 122) 


Structure Editors 

LISP lends itself well to an editor that 
knows something about the lan- 
guage. For editing program code on 
the 1186, you use the SEdit editor, an 
advanced LISP structure editor. This 
approach departs significantly from 
the usual Emacs-like editors used on 
other LISP machines. A LISP structure 
editor, as the name suggests, is an edi- 


The SEdit editor 
differs 
significantly 
from the Emacs-like 
editors 
used on other 

LISP machines. 





tor that knows about the structure of 
LISP programs in the sense that edit- 
ing oporations are performed on 
simple or nested LISP expressions 
rather than on textual structures 
such as characters, words, lines, and 
paragraphs. SEdit replaces the earli- 
er DEdit structure editor on the 1100 
series machines. Those who have 
used command-oriented LISP struc- 
ture editors will probably not realize 
the enormous difference it makes to 
use an editor of this kind that is fully 
integrated with a mouse and win- 
dow-oriented environment. Once 
you get the hang of this editor, writ- 
ing and debugging LISP code is much 
quicker than with a regular, full- 
screen text editor. 

While speaking about editors, I 
should say something about the Files 
facility on the 1186. When you use 
the structure editor to create some 
code, that code is not just stored in a 
buffer—it becomes part of the LISP 
environment. Saving your work to 
disk, therefore, is not just a matter of 
writing a text file to disk. It relies on 
an intelligent facility that keeps track 
of any changes that have been made 


to the environment. When it comes 
time to save anything to disk (func- 
tions, variables, windows, bit maps, 
records, or all of these), you use the 
same basic procedure. If you say 
(FILES?) in the Exec window, you get 
a list of variables and functions that 
are not yet a part of any file. After 
these are displayed, the system asks 
“want to say where the above go?”’. 
You then type Y and are prompted 
for what to do with each item in 
turn. An alternate way of ending a 
session and saving work is provided 
by the CLEANUP command, which 
handles all this automatically, if it is 
just a matter of updating already ex- 
isting files, and compiles all the code 
as well. 

Also in this connection, I should 
mention the way special editing keys 
on the keyboard can interact with 
the mouse to perform powerful op- 
erations anywhere in the 1186 envi- 
ronment. An example of this is the 
COPY key. To use it, you first place 
the editing caret in the place to 
which you want to copy the text. 
You then hold down the COPY key 
and use the mouse to highlight the 
text to be copied. You can use this to 
copy text from any window to any 
other. One of the most delightful uses 
of this operation I’ve experienced on 
the 1186 is to copy a function right 
from the editor window into the 
Exec window, where it becomes im- 
mediately available for use without 
having to be loaded from disk. 


Masterscope, DWIM, 

and Other Power Tools 

In the course of developing large 
programs, particularly ones in 
which a team of programmers col- 
laborates, it often happens that you 
forget about various details of func- 
tions and variables you have written 
or you need to know these details 
about code others have written. Mas- 
terscope is a tool that provides sever- 
al facilities for making it easy to ana- 
lyze the structure of complex 
programs. To use Masterscope, you 
first call upon it to analyze the partic- 
ular files in which the sources to a 
program reside. Once you have done 
this, several commands are available 
for investigating the code. So, for ex- 
ample, there is the WHO CALLS com- 
mand, which takes the name of a 
function as an argument. Master- 
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scope then obediently prints a list of 
all those functions that call the 
named function. A related facility, 
called Databasefns, automatically 
constructs and maintains Master- 
scope databases of program files. 

DWIM, standing for Do What I 
Mean, is one of the best-known facili- 
ties in the INTERLISP environment. 
What it does is to try to match unrec- 
ognized variable and function names 
with ones it knows. This amounts to 
the same thing as a partial match in- 
terpreter that is tolerant of misspell- 
ings and actually corrects typos on 
the fly. 

Someday we may see an entirely 
different kind of interpreter that is 
truly semantically oriented—that 
would have expectations about what 
it was going to receive next and that 
would actively attempt to read input 
that way and even query the user or 
programmer to get what it still need- 
ed. That would be a really intelligent, 
forgiving environment—a real DWIM 
feature—but today all the DWIM we 
have is tolerance of misspellings. 

One of the real delights in the Xe- 
rox environment is the SPY window. 
It is visibly present when the system 
boots as a large icon of an eye that is 
tightly closed. If you mouse click on 
the eye icon, it instantly bursts to life 
and you see the eye open and freeze 
in the opened position as if it were 
looking right at you. The open-eye 
icon indicates that the SPY facility is 
active and occupied with keeping 
track of the time used by various 
processes. 


Conclusions 

The Xerox 1186 is an important step 
toward providing low-cost, dedicat- 
ed AI workstations. Although the 
learning curve for getting up and 
running with any LISP machine 
should not be underestimated, there 
are things about the 1186 that make it 
more accessible than its competitors 
to new users. Although it took me 
longer than I expected to gain a 
working knowledge of the user in- 
terface, from the time I’ve spent 
working with this machine, I feel it 
offers a supportive environment for 
programmers and does what other, 
more expensive machines do but 
with noticeably better efficiency. On 
the other hand, I would not recom- 
mend that anyone decide to pur- 
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chase this machine with the idea of 
economizing on the peripherals, par- 
ticularly system memory. The ma- 
chine I evaluated had about the max- 
imum amount of RAM it can take— 
3.5 megabytes—and I would not sug- 
gest using any less. 

Keeping this in mind, I would say 
that this environment is probably the 
best buy right now in advanced AI 
hardware and software technology. 
Just about all the important higher- 
end AI tools, such as ART and KEE, 
run on it. And it is quiet. In spite of 
their role as personal workstations, 


many LISP machines are rather 
noisy. 

But perhaps the best reason to get 
your hands on a Xerox AI worksta- 
tion is the impressive Xerox LOOPS 
environment. In my next column I 
will introduce you to this object-ori- 
ented AI programming environ- 
ment, which Xerox has just made 
available as a commercial product. 


DDJ 
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LATTICE ANNOUNCES 
MICROSOFT WINDOWS 
SUPPORT IN VERSION 3.2 

Version 3.2 of the Lattice MS-DOS 
C Compiler features full support for 
Microsoft Windows—including the 
‘far,’ “near; and “pascal” keywords. 

In addition, version 3.2 includes 
the ability to generate more than 64K 
bytes of static data and to declare 
objects larger than 64K bytes. It also 
includes improved support for ROM- 
based applications via the “const”’ 
data type. Version 3.2 is a significant 
release because it eliminates Micro- 
soft’s claimed monopoly on future 
MS-DOS C development tools. Now 
that the Lattice MS-DOS C Compiler 
supports a window interface, pro- 
grammers using Lattice C can avoid 
the problems caused by switching 
to a different compiler. $500.00 





LATTICE NOW OFFERS 
ENHANCED AmigaDOS 
C COMPILER 

Version 3.1 of the Lattice 
AmigaDOS C Compiler offers a new 
library with 100 more functions 
than the standard AmigaDOS C 
Compiler. What’s more, increased 
library modularity and new address- 
ing modes help reduce load module 
sizes by more than 20%. The new 
version also features faster pointer 
and integer math, faster IEEE floating 
point routines, direct support of the 
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Lattice 
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Amiga’s FFP format floating point 
library, and multi-tasking support. 
With Version 3.1, Lattice has 
broken free of the reliance on the 
Amiga standard linker and object 
file format. This new release includes 
completely new expanded documen- 
tation, and a Lattice assembler and 
linker which remain compatible 
with previous software but allows 
professional programmers to take 
advantage of both the Amiga’s speed 
and the industry’s standardization. 
Lattice AmigaDOS C Compiler with 
Lattice’s Text Management Utilities, 
$225. Professional AmigaDOS C 
Compiler with, Text Management 
Utilities, Lattice Make Utility, Lattice 
Screen Editor, and the Metadigm 
MetaScope Debugger, $375. 
AmigaDOS C Compiler $150. 


LATTICE RELEASES NEW 
VERSIONS OF C CROSS 
COMPILER AND LINKER 

Version 3.1 of the Lattice C Cross 
Compiler to MS-DOS and version 
2.12 of the Plink86Plus Overlay 
Linker are now available for Sun and 
Apollo workstations as well as the 
DEC VAX Family of processors run- 
ning VMS, UNIX or Berkeley UNIX. 

All Lattice C Cross Compilers 
possess the same functionality and 
generate the same code as the native 
Lattice MS-DOS C Compiler. This 
allows users to take advantage of the 
larger systems’ speed and multi-user 
capabilities when creating applica- 
tions for most popular PCs. 

Contact Lattice Corporate Sales 
for details. 
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mathematics.”’ 
Neil D. Pignatano 
280 S. Euclid #329 
Pasadena, CA 91101 


New Wave BASICs? 

Dear DDJ, 

The State of BASIC in the April 1987 
issue of DDJ was excellent, but the 
term new wave may be misunder- 
stood. Many of the new features 
cited as included in two specific ex- 
amples of current BASIC compilers 
have been available for nearly a 
decade. 

The first new feature touted was 
alphanumeric lables. Interpreted BA- 
SIC language dialects and many BASIC 
compilers do require line numbers. 
Microsoft's QuickBASIC supports al- 
phanumeric labels. This doesn't 
make alphanumeric labels in BASIC 
new. Digital Research’s CBASIC com- 
piler has supported alphanumeric la- 
bels for nearly a decade. (I used a 
copy of Version 1.10, copyright 1981, 
in the CP/M environment.) So, alpha- 
numeric labels in BASIC have been 
available for a long time. What is 
new is the apparent trend toward 
the use of alphanumeric labels in BA- 
SIC compilers. 

I loved the reference to alphanu- 
meric-named subroutines with pa- 
rameter passing as part of this new 
wave. I classify these subroutines as 
merely multiple-line, user-defined 
functions with parameter passing. 
Again, this is not a new feature in BA- 
SIC. CBASIC has supported multiple- 
line, user-defined functions with 
parameter passing for a long time. 
CBASIC also has an assembly-lan- 
guage interface with object file li- 
brarian and an overlay linker. New is 
the trend toward standard BASIC lan- 
guage products that have the fea- 
tures that CBASIC, Pascal, FORTRAN, 
and C have had for many years. 

For those of us who learned FOR- 
TRAN as our first language and found 
Dartmouth BASIC an abomination, 
CBASIC was a breath of fresh air. 
There was little that CBASIC could not 
do, in a structured way, for those of 
us who started with mainframes and 
migrated to desktop personal com- 
puters running the CP/M operating 
system in the 1970s. The real surprise 
to me is why it took Microsoft so long 
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to include the features of CBASIC in a 
BASIC compiler. It has not yet includ- 
ed all the object file librarian and 
memory overlay features. Although 
you can now write multiple-line, 
user-defined functions, you still can’t 
separately compile them, library 
them, and link them in at compile 
time. Perhaps the new wave will 
eventually catch decade-old CBASIC 
yet. 

The real new wave in BASIC lan- 
guages is buried by the high-priced 
advertising of the big software 
houses. There is an obscure, unad- 
vertised BASIC language with real 
power. This product is the Minnow 
Bear BASIC compiler, MB86. It uses 
the CBASIC language syntax but sup- 
ports long integers, color, window- 
ing primitives, BCD arithmetic, DOS 
sytem calls, the 8087, and full 640K 
memory usage, to cite a few of its fea- 
tures. MB86 compiles to Microsoft C 
language source, which uses include 
files for standard routines. This 
means that those of us who used CBA- 
SIC and migrated to C have a BASIC 
that is full featured and powerful. 

MB86 uses the Microsoft C compil- 
er and linker to produce .EXE files un- 
der PC-DOS and MS-DOS. Users can 
write C modules and include them in 
libraries or directly in the C source 
generated. The compiled programs 
are as fast or faster than Digital Re- 
search’s CBASIC compiler. MB86 has 
eliminated the memory, 8087 sup- 
port, and file size limitations of CBA- 
SIC. It has virtually all the characteris- 
tics of CBASIC without the limitations 
and is a real contribution to the ad- 
vanced state of BASIC. 

There is ample reason for Micro- 
soft languages to support protected 
mode under advanced DOS on the 
80286 and 80386 processors. Micro- 
soft C should be one of the first com- 
pilers written to use ADOS. This 
means that Minnow Bear BASIC will 
be able to utilize protected mode 
shortly after ADOS and the C compil- 
er are available. For some of us, MB86 
is the cutting edge of the new wave 
in BASIC languges. It is far ahead of 
the products used as examples. 

Keith R. Plossl] 

George Plossl Educational Services 

One Parkway 75 Center 

1850 Parkway PI., Ste. 335 


Marietta, GA 30067 


Still Searching for a Sine 
Dear DDJ, 

I wish to make a comment on the 
running discussion of the “best’’ ap- 
proximation to any given function or 
collection of data points. This has 
most recently concerned techniques 
for approximating the sine function. 
My comment is that the word best 
should not be applied to any method 
independently of the context within 
which the method is to be applied. 
Despite our desire to believe that sci- 
ence and mathematics provide abso- 
lute answers to such questions, prag- 
matic and even subjective values 
arise regularly. 

When doing a linear least-squares 
fit to empirical data, for example, we 
compute the slope and intercept of a 
straight line that is chosen to mini- 
mize a certain sum. Each term in the 
summation is the squared difference 
between the line ordinate at an ob- 
served abscissa and the correspond- 
ing observed ordinate. Why is this 
quantity minimized? The answer is 
no less subjective than the answer to 
the question of why a straight line is 
used in the fit instead of a parabola or 
some other function. But minimizing 
the sum of the squared deviations 
has become so standardized we sel- 
dom ask whether it is the “‘best’’ way, 
and that is why it has become a 
standard. It is usually the best way 
because the sum involved is positive, 
definite, and easily differentiated (at 
least in the case of polynomial fits), so 
the minimization conditions are easy 
to compute. Besides these practical 
considerations, what we are really 
doing when we use least-squares fits 
is we are claiming that the price of 
being wrong in our approximation is 
proportional to the sum of the 
squared deviations from it. 

This is usually a good cost function 
to use, but we could use the sum of 
the cubed deviations, or the fourth 
power of the deviations, or many 
other functions of the deviations. 
Note that the cubed deviations are a 
poor choice, as are all odd-numbered 
powers, because negative deviations 
contribute negative cost. Another ad- 
vantage of the least-squares ap- 
proach is that we obtain the actual 
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value of the root-mean-square devi- 
ation of the fit quite easily, and we 
have come to regard this as a good 
figure of merit for judging the quali- 
ty of the fit. Other cost functions may 
yield the RMS deviation as easily. 

Why use these things called Che- 
byshev polynomials, then? The an- 
swer lies in what their cost function 
is: the maximum absolute deviation 
of the fit. In general, Chebyshev 
polynomials yield higher RMS devi- 
ations, but this is often a small price 
to pay to minimize the maximum ab- 
solute deviations. They are also 
slightly more difficult to compute 
than least-squares polynomials but 
not enough to make this a significant 
consideration. When designing an al- 
gorithm to be used on a computer, 
we are dealing with limited preci- 
sion; if we can find an algorithm 
with a maximum absolute error 
below the precision cutoff, then we 
know that no better accuracy can be 
attained for the given precision. This 
is not as easy to determine when all 
we know is that the RMS deviation 
has been minimized; there may be a 
range in which the absolute error is 
shockingly high, with excellent be- 
havior elsewhere masking the weak- 
ness. This also points out the necessi- 
ty for great care in selecting points to 
fit and ranges over which to apply a 
single fit. 

So far, this addresses only numeri- 
cal accuracy as a consideration. 
There is also the question of compu- 
tational speed. Sometimes very 
rough answers are all that are need- 
ed, but speed is critical. 

There are many more methods, 
cost functions to minimize, subjec- 
tive aspects to be weighed, and so on. 
I hope only to have stimulated some 
ideas that may prove useful in deter- 
mining what is best for the problem 
you are working on at the moment. 

John W. Fowler 

Global Solutions 

230 Pacific St., #205 

Santa Monica, CA 90405 
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Performance and Portability 


For all the time you devote to developing 
your new programs, doesn't it make sense to 
insure they perform like lightning and can be 
ported with ease? 






c-tree: Multi-Key ISAM Functions 
For Single User, Network, & Multi 
Tasking Systems 


Based on the most advanced B+ Tree routines 
available today, c-tree gives you un- 
matched keyed file accessing performance and 
complete C Source Code. Thousands of profes- 
sional C programmers are already enjoying 
c-tree’s /oyalty-free benefits, outstanding 
performance, and unparalleled portability. 












Only FairCom provides single and multi-user 
Capabilities in one source code package, 
including locking routines for Unix, Xenix, and 
DOS 3.1., for one low price! In addition, 
c-tree supports fixed and variable record 
length data files; fixed and variable length key 
values with key compression; multiple indices 
in a single index file; and automatic sharing of 
file descriptors. 












r-tree: Multi-Rle Report Generator 


r-tree builds on the power of c-tree 
fo provide sophisticated, multi-line reports. 
Information spanning multiple files may be 
used for display purposes or to direct record 
selection. You can develop new reports or 
change existing reports without programming 
or recompiting and can use any text editor to 











Everything Isn’t As 
Accommodating As 
c-tree / r-tree 


Complete C Source Code & No Royalties! 











REPORT GENERATOR 


create or modify r-tree report scripts 
including the complete report layout. At your 
option, end users may even modify the report 
scripts you provide. 


Unlimited Virtual Fields; Automatic File 
Traversal 


r-tree report scripts can define any number 
of virtual fields based on complex computational 
expressions involving application defined data 
objects and other virtual fields. In addition, 
r-tree aufomatically computes values 
based on the MAX, MIN, SUM, FRQ, or AVG of 
values spread over multiple records. r-tree 
even lets you nest these computational func- 
tions, causing files from different logical levels 
to be automatically traversed. 


Unlike other report generators, r-tree allows 
you fo distribute executable code capable of 
producing new reports or changing existing 
reports without royalty payments, provided the 
code is tied to an application. Your complete 
source code also includes the report script 
interpreter and compiler. 


How To Order 


Put FairCom leadership in programmers utilities 
fo work for you. Order c-tree today for 
$395 or r-tree for $295. (When ordered 
together, r-tree is only $255). For VISA, 
MasterCard and C.0.D. orders, call 314/445- 
6833. For ¢-tree benchmark comparisons, 
wrife FairOom, 2606 Johnson Drive, Columbia, 
MO 65203. 





Xenix is a registered trademark of Microsoft Corp. Unix is a registered trademark of AT&T. 
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Hillis, W. Daniel. The Connection Ma- 
chine. Cambridge, Mass.: MIT Press, 
1985. 

Imagine a computer that could 
change its internal structure to han- 
dle different types of problems—a 
massively parallel computer whose 
data paths could be configured to 
form a tree structure for finding 
maxima or minima or a directed 
graph for solving ‘‘shortest path” 
problems. Daniel Hillis imagined 
such a beast, and now, as president of 
Thinking Machines Corp., he is build- 
ing it. But before he was a company 
president, he was a student at MIT, 
and the Ph.D. thesis he wrote there 
has been published in book form as 
The Connection Machine. 

In this book, Hillis explains why 
conventional von Neumann architec- 
tures are inadequate. He graphically 
illustrates the ‘“von Neumann bottle- 
neck” by asking you to visualize all 
the elements of a modern mainframe 
computer on a single piece of silicon. 
This ‘“‘megachip” would be a square 
meter in size and would contain 
about 1 billion transistors. The CPU, 
however, would take up only 2 or 3 
square centimeters. 

Hillis proposes a computer archi- 
tecture based on two requirements: 
parallel processing and a dynamical- 
ly configurable communications net- 
work between the processors. He 
outlines the structure of the CM-1, a 
prototype machine with 65,535 
nodes, each containing its own pro- 
cessor and 4,096 bits of memory. The 
nodes are coupled by special routing 
hardware that allows messages to be 
passed from processor to processor. 

Hillis next describes how the ma- 
chine is programmed. It is connected 
to a conventional mainframe or su- 
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permini that can write directly to the 
memory of the Connection Machine. 
A version of LISP running on the host 
computer causes data and instruc- 
tions to be passed to the Connection 
Machine. Hillis describes three exten- 
sions to the LISP language that form 
the basis for exploiting the parallel- 
ism of the Connection Machine archi- 
tecture. He examines the implemen- 
tation of the architecture in detail 
and follows this with a description of 
how various algorithms and data 
structures can be adapted to the 
machine. 

One of this book’s greatest strengths 
is that Hillis brings his vision to the 
reader in a clear and logical manner. 
From an abstract discussion of the 
need for parallel architectures to the 
specifics of the CM-1, he covers his 
topic thoroughly. Although you do 
not have to be an expert to under- 
stand the book, you will probably 
need some knowledge of computer 
architecture, algorithms, and LISP. | 
have no hesitation in recommending 
it to anyone interested in the future of 
computer architecture. 


Stroustrup, Bjarne. The C++ Pro- 
gramming Language. Reading, Mass.: 
Addison-Wesley, 1986. 

The computer science research 
community has been experimenting 
with object-oriented programming 
languages (OOPLs) for more than 15 
years, but the benefits of working 
with these languages have only re- 
cently been made available to com- 
mercial programmers. Unfortunate- 
ly, most OOPLs have been interpretive 
in nature; thus, they have served well 
as design and prototyping tools, but 
they have not generally been appro- 
priate for marketable, end-user appli- 
cations. The C+ + Programming Lan- 
guage introduces you to a compiled 
OOPL that was designed to combine 
the numerous advantages of object- 
oriented programming style with the 
efficiency of a compiled language. 
This book was written by Bjarne 
Stroustrup of Bell Labs, who designed 
C++ and its predecessor, C with 
Classes. The language has roots in 
both C and Simula67. 

The structure of the book is similar 
in many ways to the classic C refer- 


ence by Kernighan and Ritchie. It 
even begins with C+ + variants of the 
“Hello, world” and “English-to-met- 
ric’ conversion programs. Readers fa- 
miliar with C may find these pro- 
grams and several other sample pro- 
grams frustrating because they do not 
illustrate object-oriented program- 
ming at all. Their inclusion can be jus- 
tified on the grounds that program- 
mers approaching C+ + for the first 
time will need to learn the standard 
forms for looping, data structuring, 
and so on. I think, however, that ex- 
amples of the object paradigm are just 
as important as the language syntax. 

It is not until Chapter 5 that Strous- 
trup really begins to discuss the most 
important feature of C+ +—the class 
mechanism. From this point on, the 
book covers object programming in 
C+ + in detail. The text and examples 
illustrate the features of C++ that 
take it well beyond C, including infor- 
mation hiding, inheritance, and oper- 
ator overloading. Stroustrup is also 
good at pointing out idiosyncrasies in 
the language that are liable to be mis- 
understood. Unfortunately, in his ex- 
ample programs, he uses some short- 
hand notations that I feel are 
inappropriate. He frequently substi- 
tutes the keyword struct for class { 
public: when defining classes. This is 
correct, but it can lead to confusion 
over what is an object vs. what is a 
simple data structure. 

As a reference manual, this book is 
indispensable. You should not pur- 
chase this book as an introduction to 
object-oriented programming, how- 
ever. Stroustrup does not cover the 
rationale for any of the design deci- 
sions or contrast the implementation 
of C++ with any other OOPLs. Yet 
without providing this background, 
he expects readers to recognize that 
procedure calls (with objects as pa- 
rameters) replace message passing 
and that all message-to-object bind- 
ing is done at compile time via func- 
tion prototyping. If C+ + becomes as 
popular as C is now, however, The 
C++ Programming Language will be 
popular indeed. 

— Ross Nelson 
DDJ 
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USE THE BRAINS YOUR IBM 


WASN'T BORN WITH. 


Right at your fingertips in 
CompuServe’s IBM” Forums. 


Our IBM Forums involve thousands 
of users worldwide who will show 
you just how easy it is to get the most 
from your IBM and IBM compatibles. 


The IBM New Users Forum lets 
you ask basic questions of PC 
experts. The IBM Junior Forum 
is perfect for PCjr° users. Trade tips 
with other IBM PC and AT users in 
the IBM Software Forum. Ask 
questions and get answers directly 
from the manufacturers in the PC 
Vendor Support Forum. And if you’re 
looking for a PC Bulletin Board, visit 
the IBM Communications Forum. 
Or try the IBM Hardware Forum for 
discussions on hardware topics 
and product updates. 


Easy access to free software, 
including free uploads. 


You can easily download first-rate, 


non-commercial software and utility 
programs. Upload your own pro- 
grams free of connect time charges. 
And take advantage of CompuServe’s 
inexpensive weeknight and weekend 
rates, when forums are most active 
and standard online charges are 

just 10¢ a minute. You can go online 
in most areas with a local phone call. 
Plus, you'll receive a $25.00 
Introductory Usage Credit when 

you purchase your CompuServe 
Subscription Kit. 


Information you just can’t find 
anywhere else. 


Use the Forum Message Board 
to send and receive electronic mes- 
sages. Join ongoing, real-time 
discussions in a Forum Conference. 
Communicate with industry experts, 
including the programmers who 
write your favorite programs. Search 
Forum Data Libraries for non- 
commercial software and shareware. 
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Enjoy other useful services too, 
like electronic editions of popular 
computer magazines. 


All you need is your IBM computer 
or IBM compatible computer (or 
almost any other personal computer) 
and a modem. 


To buy your Subscription Kit, 
see your nearest computer dealer. 
Suggested retail price is $39.95. 
To receive our free brochure, or to 
order direct, call 800-848-8199 (in 
Ohio and Canada, call 614-457-0802). 
If you're already a CompuServe 
subscriber, type GO IBMNET (the 
IBM Users Network) at any ! prompt 
to see what you've been missing. 


CompuServe: 


Information Services, PO. Box 20212 
5000 Arlington Centre Bivd., Columbus, Ohio 43220 


800-848-8199 


In Ohio, call 614-457-0802 
An H&R Block Company 
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THE STATE OF BASIC 





Fundamental Data Types 
in the New BASICs 

icrosoft has followed a rela- 

tively consistent scheme in im- 
plementing data types in MS-BASIC, 
BASICA, and many other microcom- 
puter BASIC dialects. In MS-BASIC and 
BASICA, the types supported are inte- 
ger, floating point, double-precision 
floating point, and string. Characters 
are considered to be strings contain- 
ing a single character. You can asso- 
ciate the data type with a BASIC vari- 
able in two ways: use a symbol at the 
end of the variable name to explicitly 
indicate the type, or use a DEFXxx 
declaration to perform implicit type 
declaration. 

QuickBASIC uses exactly the same 
data typing method as BASICA and 
MS-BASIC do. QuickBASIC strings can 
be as large as 32K in size, however. 

Turbo BASIC follows the same 
scheme but adds two new items: long 
integers and integer constants. Long 
integers support a range between 
minus and plus two billion. The sym- 
bol used for long integers is the & 
character. Named constants in Turbo 
BASIC are integer-type identifiers that 
begin with the % character. For 
example: 


%Max.Size = 100 


defines a named constant Max.Size 
and assigns it a fixed value of 100. 
Named constants are useful for per- 
forming changes in a program with- 
out hunting for specific numbers (an 
operation that sometimes can be 
hazardous). 

Other BASIC implementations are 
able to mimic named constants by us- 
ing functions that return a value. For 
example, in QuickBASIC you can de- 
fine the following function: 
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DEF FNMax.Size% = 100 


Although named constants can be 
faster than function calls, when you 
use the function call technique, you 
can simulate constants that are of 
other types, such as: 


DEF FNActor$ = ‘“‘Don Johnson” 
DEF FNWeekly.Salary! = 150000.00 


True BASIC takes an entirely differ- 
ent approach—it supports both num- 
bers and strings. The internal storage 
format for numeric variables uses a 
variant of integers and floating 
points. As long as the number has no 
fractional part, it is stored internally 
as an integer. Add a fraction, and the 
number is stored as a real: 


LET N = 0! N is stored as an integer 
LET N = SORIN)! N is stored as real 


Variables and functions in True BA- 
SIC are numeric if their names do not 
end with a $ character. The § sign is 
the only data type symbol True BASIC 
uses—it does not use the implicit 
DEFxxx declaration. Strings in True 
BASIC can be 64K long. 

BetterBASIC uses a Pascal-like ap- 
proach, declaring the data types of 
variables and supporting new data 
types. You declare data types by first 
stating the data type and then listing 
the variable name as in: 


INTEGER: Count, Size, Height 
REAL: Salary, Interest 
STRING: Name, Message 


BetterBASIC supports three types of 
numeric data types: BYTE, INTEGER, 
and REAL. The BYTE type uses 1 byte 
of storage and offers a range of val- 
ues between 0 and 255. The INTEGER 
type requires 2 bytes of storage and 
offers the traditional integer range. 
The REAL type in Better BASIC ranges 
from about 1E+ 254 to 1E-255, witha 
user-assigned accuracy. 

Strings in BetterBASIC have a de- 
fault size of 16 characters. They can 
be as large as 32K and can be allocat- 
ed as static or as dynamic variables. 
You can even use the extended mem- 
ory space to store strings. Consider 
the following declaration: 


STRING: Name, ThisLine[80], Buffer/ 
X(3000], AnyString[?] 


It declares Name as a string of default 
size, ThisLine as a string of 80 charac- 
ters, Buffer as a string of 3,000 charac- 
ters (stored in the extended memory), 
and AnyString as a dynamic string. 
BetterBASIC also supports the pointer 
data type. Although its use with fun- 
damental types is somewhat limited, 
pointers shine when used with re- 
cord structures, also implemented in 
BetterBASIC. 

BetterBASIC supports named con- 
stants that can be of any valid data 
type. You declare them using the 
keyword CONSTANT followed by one 
or more constant definitions, such as: 


CONSTANT Actor$ =‘‘Tom Selleck”, 
Series=‘‘Magnum, P.I.” 

CONSTANT ThisNumber=123, That- 
One = 1.234 


As you can see from this example, 
BetterBASIC is able to deduce the 
type. Although the constant Actor$ is 
explicitly typed with the $ sign, the 
constant Series is not, and neither are 
constants ThisNumber or ThatOne. 
BetterBASIC can deduce that Series is 
a string constant, ThisNumber is an 
integer constant, and ThatOne is a 
floating-point constant. If you assign 
a number to a named constant and 
the number contains a decimal or an 
exponential or is outside the range of 
integers, the constant is associated 
with a floating-point type. Other- 
wise, BetterBASIC assumes that you 
are declaring an integer-named con- 
Stant. 

The new BASICs offer more diversi- 
ty in data typing than do the first 
generation of microcomputer BASICs. 
At the two ends of the spectrum are 
BetterBASIC and True BASIC, which 
offer sophisticated and simple data 
typing, respectively. Microsoft has 
elected to make QuickBASIC keep the 
traditional types of BASICA and MS- 
BASIC. Turbo BASIC has extended 
some of the BASICA data types. 
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Vote for your favorite feature/article. 
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PMI is now the leading international 
supplier of tools for the language that 
developers of large projects prefer: 


MODULA-2 


Our Products Include: 


* Repertoire™: the largest and most 
successful library for M2. Includes 
display system for windows, forms, 
help, menus, etc. (MS Windows 
compatible); expression evaluation 
tools; DBMS with variable-length 
keyed records; text editor; extensive 
DOS & BIOS access; 330 page manual; 
full source code 


Paver OUT). ow eee vee ch ean te $89 


NEW: VOICE INPUT 


* AVOS: a price breakthrough in voice- 
recognition subsystems, complete with 
expansion board, all necessary 
hardware, and full Modula-2 source 
code (including Repertoire); 
Comprehends Continuous Speech; 
telephone interface available; free 
AVOS manual provides 
historic opportunity to learn. 2200 


* EmsStorage: high-level storage module 
with full garbage collection and MS 
Windows-like memory management; 
uses LIM expanded memory 
if present, DOS memory if not. 549 


* Graphix: the only Modula interface to 
MetaWINDOW, the professional 
graphics system PCTJ named 7/85 
Product of the Month; includes full 
MetaWINDOW 


Lo Se Clear eee re ere $ l 49 


* ModBase: a B+Tree DBMS that uses a 
file format compatible with Ashton- 
Tate’s dBase III. 

Includes full source code....... $89 


* Macro2: a macro preprocessor for 
Modula-2; provides inline expansion of 
functions, include files, conditional 
compilation, etc. 


With full source: ............ $89 
@pjece-code Only? ss... 2... ces $49 


All available exclusively from PMI; 
dealer inquiries welcome. Full 
documentation for all products 

available free of ___@vailable free of charge. —___ 


VISA/MC 

oF ‘ AMEX/COD/PO 

(503) 777-8844 

4536 SE 50th BIX: pmi 
Portland, OR 97206 CIS: 74706,262 


CIRCLE 239 ON READER SERVICE CARD 


The Advanced Programmer's Editor 
That Doesn't Waste Your Time 


e Fast, EMACS-style commands—completely reconfigurable 
e Kun other programs without stopping Epsilon—concurrently! 


e C Language support—fix errors while your compiler runs 

e Powerful extension language _e Great on-line help system 
e Multiple windows, files e Regular Expression search 
e Unlimited file size, line length Supports large displays 

e 30 day money-back guarantee e Not copy protected 


Only $195 
LUgar~u 


Software Ltd. 


9740 Darlington Road 
Pittsburgh, PA 15217 for IBM PC/XT/AT’s or compatibles 
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USERS CAN ADD NEW FUNCTIONS 
TO LOTUS, WORDSTAR AND dBASE 











Move into 


—THE WEINER SHELL 
GET ROOM TO GROW 


e Add your own functions to LOTUS, WORDSTAR, dBASE & 
most other programs on the market. 







e Custom-design memory-resident windows, menus, screens & 
utilities. 






Run Shell programs without leaving your application. 






e Execute Shell programs automatically, at timed intervals, or 
with user-defined hot keys. 





e 50K memory required. Supports up to 8M bytes of Lotus- 
Intel memory. 





$199 (includes limited no-royalty agreement). 


THE FIRST MEMORY-RESIDENT 
PROGRAMMING LANGUAGE 


GRYPHON:. 


MICROpROOUCTtS 
P.O. Box 6543/Silver Spring, MD 20906/(301) 384-6868 







CIRCLE 374 ON READER SERVICE CARD 


The tastest 


Your search for execution speed is over. 
The new Microsoft® C Compiler Version 4.0 
is here. With blazing performance. Weve 
added common sub-expression elimination 
to our optimizer that produces code that 
rips through the benchmarks faster than 
ever before. 


“..the Microsoft performance in the benchmarks 
for program execution is the best of the lot overall’ 


— William Hunt, PC Tech Journal, January, 1986* 


But speed isn't the only edge you get with 
Microsoft C. Other advantages include a vari- 
ety of memory models like our new HUGE 
model that breaks the 64K limit on single 
data items. Plus our NEAR, FAR and HUGE 
pointers, which provide you greater flexibility. 
All this allows you to fine tune your program 
to be as small and fast as possible. 


“Excellent execution times, the fastest register 
sieve, and the best documentation in this review 
... Microsoft Corporation has produced a 
tremendously useful compiler.’ — Christopher 
Skelly, Computer Language, February, 1986. 


No more debugging hassles. 
Introducing CodeView. Free. 
Now, for a limited time, well give you an 
unprecedented programming tool when you 


buy Microsoft C, free. New Microsoft Code- 
View™ offers the most powerful tool yet in 





the war on C bugs. Forget the hex dumps. 
Now you can view and work with programs 
at any level you want. Use the program 
source, the disassembled object code, or 


Microsoft C Compiler Version 4.00 
Microsoft C Compiler 


* Produces fast executables and optimized code including elimination 
of common sub-expressions. NEW! 
¢ Implements register variables. 
¢ Small, Medium and Large Memory model libraries. 
* Compact and HUGE memory model libraries. NEW! 
«Can mix models with NEAR, FAR and the new HUGE pointers. 
¢ Transport source and object code between MS-DOS® and XENIX® 
operating systems. 
¢ Library routines implement most of UNIX™ System V C library. 
¢ Start-up source code to help create ROMable code. NEW! 
¢ Full proposed ANSI C library support (except clock). 
¢ Large number of third party support libraries available. 
* Choose from three math libraries and generate in-line 8087/ 80287 
instructions or floating point calls: 
— floating point emulator (utilizes 8087/80287 if installed). 
— 8087/80287 coprocessor support. 
— alternate math package — extra speed without an 8087/80287. 
¢ Link your C routines with Microsoft FORTRAN (version 3.3 or 
higher), Microsoft Pascal (version 3.3 or higher) or Microsoft 
Macro Assembler. 
* Microsoft Windows support and MS-DOS 3.1 networking support. 
¢ Supports MS-DOS pathnames and input/output redirection. 


Microsoft Program Maintenance Utility. NEW! 
¢ Rebuilds your applications aftet your source files have changed. 
¢ Supports macro definitions and inference rules. 


Other Utilities 

¢ Library Manager. 

¢ Object Code Linker. 

* EXE File Compression Utility. 
* EXE File Header Utility. 


C Benchmarks In seconds 


Computer 
Microsoft Lattice Innovation Aztec Wizard 
C 40 C30 C23 C86 3.2 C30 
Sieve of 
Eratosthenes 
(register) 82.9 151.4 1/23 88.0 919 
Copy Block 86.9 2317 199.0 123.8 189.5 


Run on an IBM PC XT with 512K memory 


Microsoft CodeView 
Window-oriented source-level debugger. NEW! 


* Watch the values of your local and global variables and expressions 
as you debug. 

¢ Set conditional breakpoints on variables, expressions or memory; 
trace and single step. 

¢ Watch CPU registers and flags as you execute. 

¢ Effectively uses up to four windows. 

¢ Debug using your original source code, the resulting disassembly 
or both intermingled. 

¢ Use drop-down menus to execute CodeView commands. 

* Access the on-line help to lead you through CodeView's options 
and settings. 

* Easily debug graphics-oriented programs since program output is 
kept separate from debugger output. 

¢ Keyboard or optional mouse support. 


¢ Enter in familiar SY MDEB or DEBUG commands. 





*Reprinted from PC Tech Journal, January 1986, copyright 1986, Ziff-Davis Publishing. 
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youve ever seen. 


both at the same time. Open a window to 
view CPU registers and flags. Watch local 
and global variables as well. All while your 
program is running. 

CodeView gives you complete control. 
Trace execution a line at a time — using 
source or assembly code. Or set conditional 
breakpoints on variables, memory or expres- 
sions. CodeView supports the familiar 
SYMDEB command syntax, as you'd expect. 
Commands are also available through drop- 
down menus. Combine the new window- 
oriented interface with our on-line help and 
debugging has never been easier. Or quicker. 
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Take the $5 CodeView tour. 

You may find it hard to believe our debug- 
ger can do all we've claimed.So we're offering 
test drives. Five bucks will put you behind 
the wheel of a Microsoft C demo disk with 
CodeView. See for yourself how fast debug- 
ging can get. 

For more information about the Code- 
View demo disk, the new Microsoft C 
Compiler, a list of third party library sup- 
port or the name of your nearest Microsoft 
dealer, call (800) 426-9400. In Washington 
State and Alaska, (206) 882-8088. In Canada 
call (416) 673-7638. 
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Microsoft’ C Compiler 


The High Performance Software 


Microsoft, MS-DOS and XENIX are registered trademarks and CodeView is a trademark of Microsoft Corporation. UNIX is a 
trademark of AT&T Bell Laboratories. IBM is a registered trademark of International Business Machines Corporation. TOffer expires 12/31/86. 
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PROGRAMMER’S SERVICES 


OF INTEREST 





Miscellaneous 
Computer Professionals for So- 
cial Responsibility is sponsoring a 
symposium entitled Directions and 
Implications of Advanced Comput- 
ing, in Seattle, Washington, on July 
12. The aim of the symposium is to 
consider the directions and implica- 
tions of advanced computing in a so- 
cial and political context as well as a 
technical one. Symposium topics will 
include computing research fund- 
ing, defense applications, computing 
in a democratic society, and comput- 
ers in the public interest. Keynote 
speakers will be Robert Kahn, for- 
merly director of the Information 
Processing Techniques Office at the 
Defense Advanced Research Projects 
Agency, and Terry Winograd, an as- 
sociate professor of computer sci- 
ence at Stanford and an AI maven. 
Proceedings will be distributed at the 
symposium and will be on sale dur- 
ing the 1987 AAAI conference. Reader 
Service No. 29. 
Computer Professionals for Social Re- 
sponsibility 
P.O. Box 85481 
Seattle, WA 98105 
(206) 783-0145 
(206) 548-4117 


Flambeaux Software has an- 
nounced the availability of TECH 
Help!—The Electronic Manual, an 
on-line, pop-up, technical reference 
manual of the most commonly need- 
ed information for system-level pro- 
grammers. It includes comprehen- 
sive coverage of the DOS and ROM 
BIOS services; system variables; I/O 
ports; installable device drivers; dis- 
play usage (including the EGA); and 
the layouts and structures of dozens 
of data tables, bit flags, and switch 
settings. It is up to date, covering top- 
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ics through DOS 3.2 and the latest PC/ 
AT BIOS. It also describes the Lotus/ 
Intel/Microsoft Expanded Memory 
Specification. TECH Help! pops up 
from within your program editor or 
debugger to give you instant access. It 
sells for $69.95. Reader Service No. 30. 
Flambeaux Software 

1147 E. Broadway, Ste. 56 

Glendale, CA 91205 

(818) 500-0044 


Connections is a bimonthly news- 
letter for networked Macintoshes, 
designed to provide answers about 
network products and planning for 
both novice and experienced net- 
work users. It covers topics of inter- 
est to Macintosh users who wish to 
exchange data and information 
among themselves as well as with us- 
ers of other kinds of computers. Fu- 
ture issues will include articles such 
as IBM 3270 connectivity, Unix con- 
nectivity, file servers, star control- 
lers, file transfers and conversions, 
AppleTalk utilities and diagnostics, 
and the use of other file transfer pro- 
tocols on the Macintosh. A one-year 
subscription to Connections costs $60 
($70 for overseas subscribers). Reader 
Service No. 31. 

David R. Kosiur 

Connections 

P.O. Box 5894 

Fullerton, CA 92635 

(714) 738-1492 


The Visible Computer (TVC):8088, 
from Software Masters, is a book 
and disk combination for mastering 
8088 assembly language. It consists of 
a 350-page, tutorial-style manual, a 
program that graphically simulates 
the inner workings of the 8088 chip, 
and dozens of demonstration pro- 
grams. TVC is designed for people 
with no prior exposure to assembly 
language and includes preliminary 
chapters on hex and binary number- 
ing systems. TVC:8088 for PC-DOS ma- 
chines requires 128K RAM, is not 
copy-protected, and sells for $79.95. 
Reader Service No. 32. 

Software Masters 

P.O. Box 3638 

Bryan, TX 77805 

(409) 822-9490 


Novation has introduced a 300/ 


1,200-baud, AT (Hayes)-compatible 
modem called the Parrot 1200. The 
modem is approximately the size of 
an audio cassette (4% X 2% X % inch- 
es) and weighs three ounces. A mi- 
croprocessor-controlled power-man- 
agement system enables the Parrot 
1200 to function at high levels of reli- 
ability using only the power avail- 
able from the host computer's RS-232 
serial interface; neither batteries nor 
external AC power are required. Fea- 
tures include transmission speeds of 
0-300 or 1,200 bps; Bell 103/212A 
hardware compatibility; an asyn- 
chronous data format; full-duplex 
operation; built-in auto self-test, ana- 
log loop-back, local digital loop-back, 
and remote digital loop-back testing; 
a speaker with volume control; four 
LED indicators; and an AT-standard 
(Hayes) command format. The Parrot 
1200 sells for $119. Reader Service No. 
33. 

Novation Inc. 

21345 Lassen St. 

Chatsworth, CA 91311 

(818) 988-5060 


A six-volume set of books that serves 
as a software management tool for 
establishing a company’s internal 
programming and documentation 
practices is available from ATC Soft- 
ware. Five of the volumes describe 
standard methods for programming 
in COBOL, FORTRAN, C, BASIC, and 
dBASE. The sixth volume describes 
uniform software documentation 
standards for the five languages. The 
set sells for $72; individual volumes 
cost $15 each. Reader Service No. 34. 
ATC Software 

Rte. 2 Box 448 

Estill Springs, TN 37330 

(615) 967-9159 
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USING THE WRONG LANGUAGE CAN BE MURDER. 
SPEAK SMALLTALK/V 


Let’ talk languages. 
Programming languages 
like Turbo Pascal, C or Basic 
can be killers. To many, 
theyre foreign, complex, 
and generally intimidating. 
Mistakes can be deadly. 

With Smalltalk/V, 
you have an elegantly 
simple solution that puts 
the power and majesty of 
a major AI programming language on your PC or 
compatible. It makes no difference if you’re an 
experienced programmer or just getting started. 
Smalltalk/V gives you an easy-to-use and flexible 
programming tool. 

This is the same language used by leading 
software companies for their new product develop- 
ment. There are sound reasons for this. Smalltalk/V 
offers a totally integrated programming environ- 
ment using the premier object-oriented language. 
You use natural language rather than complex 
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“Smalltalk/V 1s the highest performance object-oriented 
programming system available for PCs.” 


Dr. Piero Scaruffi 
Chief Scientist 
Olivetti Artificial 
Intelligence Center 


‘Today, thousands of professionals, scientists 
and engineers are using Smalltalk/V to solve both 
simple and expert problems. Giving them a new 
dimension in computer applications for their PC. 

Put new life into your PC by calling toll free 
1-800-922-8255 and ordering Smalltalk/V today. 
Smalltalk/V by Digitalk, Inc., 9841 Airport Blvd., 


Los Angeles, CA 90045. 
$9995 


Smalltalk/V comes with 10 starter applications including Prolog and each Application 
Pack adds several more. All source code is included. Supports 640 x 480 color graphics 
with color extension pack. 

Smalltalk/V requires DOS and 512K RAM on IBM PC/AT/PS or compatibles and a CGA, EGA, 
Toshiba T3100, Hercules, or AT&T 6300 graphic controller. A Microsoft or compatible mouse 
is recommended. Not copy protected. 

Turbo Pascal is a trademark of Borland Internation. IBM, IBM PC/AT’/PS are trademarks of 
International Business Machines Corporation. Macintosh is a tademark of Apple Computer, Inc. 
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eraphic features on a PC including over- 
lapping windows, bit-mapping, pop-up 
menus, and a mouse interface. More than 
mere window dressing, Smalltalk/V delivers 
fully interactive windows that are easy to 
build and quick to modify. 

But don’t just take our word on it. 
Hear what the experts have to say: 


this turns your PC into a hot workstation. [ts fantastic... 


H ighly recommended. John Dvorak 


Contributing Editor 


PC Magazine 


“The tutorial provides the best introduction to 
Smalltalk available.” Fh Asie aria 


Al Expert Magazine 
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Street Address: 


City/State/Zip: 


Small 


digitalk inc. se 


i 
i 
i 
l 
i 
l 
| 
‘ 
“This is the real thing folks. A super Smalltalk like | Name: 
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TO ORDER CALL 1-800-922-8255 TODAY. 


60-DAY MONEY-BACK GUARANTEE* — Smalitalk/V $99.95 
Send check, money order, or credit card RS-232 Communications 
P ; a2 ; Application Pack $49.95 
information to: Digitalk, Inc., 9841 Airport ; 
Boulevard, Los Angeles, CA 90045 EGA/VGA Color Extension 
oure ; Scies, Pack $49.95 

Credit Card CJ VISA & Mastercard “Goodies” Application 

Pack $49.95 
Card number: 

SPECIAL OFFER: 
Expiration date: Smalltalk/V and all 

3 packs only $199.95 


Shipping and handling $5.00 
(Outside North 
America $15.00) 


California residents add 
applicable sales tax 


TOTAL Diep 
*Unconditional 60-day money-back guaran- 
tee. Simply return to Digitalk, Inc. and 


your refund will be immediately forwarded 








q ne company worth watching 
just now is Phoenix Technolo- 


gies, developer of an operating sys- 
tem extension called VP/ix, a virtual 
PC environment that may have a lot 
to say about the popularity of Unix 
on 386 machines. Phoenix is working 
with both Microsoft and Interactive 
Systems to make Xenix and Unix sup- 
port DOS applications on 386 systems. 
This puts Phoenix in the heart of 
Unix development for the 386 be- 
cause AT&T-Intel-Interactive Systems 
Unix and Microsoft-Santa Cruz Oper- 
ation Xenix are the most important 
strands in Unix development for the 
386. Phoenix is especially worth 
watching because these two strands 
are converging as a result of this 
spring’s agreement between AT&T 
and Microsoft. Under that agree- 
ment, Microsoft will develop the 
next version of Unix for AT&T, a ver- 
sion that will be designed for the 386 
and that will be upwardly compati- 
ble with AT&T’s and Microsoft's exist- 
ing Unix or Xenix products. 


Some text is meant only for human 
processing. What you say in on-line 
conferences, for example, is often of 
no lasting import and does not need 
to be processed in any other way. 
ROAM, my cousin Corbett calls it: 
Read Once, At Most. Also, you may 
prefer not to have your words count- 
ed, indexed, or munged without 
your approval. 

Corbett has come up with two 
data-encoding encryption tech- 
niques for text that is only meant for 
human perusal. One nice feature of 
such techniques is that only the send- 
er needs any special software; the 
encrypted message is displayed to its 
intended recipient and the decryp- 
tion process is performed in his 
head. 

The simplest is the etaoin encod- 
ing. This encoding is trivial to imple- 
ment, can encode in real time during 
high-speed transmission, reduces 
data by up to 50 percent (making a 
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1200-bps transmission effectively 
2400 bps), and produces ciphertext 
more appropriate for human de- 
cryption than for machine decryp- 
tion. Although a program with ac- 
cess to an English dictionary could 
crack the messages, even this is ques- 
tionable if the sender constructs the 
messages to make maximum use of 
context dependencies and uses un- 
common words. 

Here's how it works. It maps up- 
percase and lowercase es into lower- 
case, and similarly for t, a, o, i,n, s, h, 
r,d,l, and u. (These are the most com- 
mon letters in written English.) Low- 
ercase is used because the ascenders 
help distinguish the letters at a 
glance. All other letters are mapped 
into underlines, all punctuation into 
periods, and space into space. Num- 
bers are spelled out. Here is a mes- 
sage in etaoin encoding: 


i need to _et a _aster _ode_. at least 
t_el_e hundred _aud. 


Not too hard for human decryp- 
tion. But note that two things make 
the machine decryption of this hard- 
er than you might at first expect: let- 
ter-frequency information is not a 
useful tool for extracting the remain- 
ing, low-frequency letters, and, in 
general, structural words appear in- 
tact, but words crucial to the mean- 
ing of the message are ravaged. The 
simplest way to recover these words 
is by using semantic context and real- 
world knowledge, exactly the things 
that people do naturally and pro- 
grams don't do. The word modem in 
the message, for example, would be 


hard to recover without reference to 
the meaning of the entire message. 

The more ambitious of the two en- 
codings is 3-Bit English (3BE). This en- 
coding, which has a greater data- 
reduction efficiency than etaoin, is 
based on context-dependent confusi- 
bility studies and studies of redun- 
dancy-reduction in English prose 
conducted at Matrix Labs in Re- 
search Triangle Park in North Caroli- 
na. These studies show how to map 
letters into an eight-character alpha- 
bet so as to lose the minimum infor- 
mation at the lexical and phonetic 
levels. It turns out that phonetically 
confusible letters do not often appear 
in identical contexts for the simple 
reason that this would lead to audi- 
tory confusions. 

Corbett’s encryption technique 
maps, for example, phonetically sim- 
ilar letters such as d and t together in 
such a way as to minimize the possi- 
bility of the reader mistaking the 
whole word. Vowels, which are 
high-frequency letters, carry little in- 
formation and can all be mapped 
into a single symbol. In addition, Cor- 
bett hopes to develop a custom font 
for the recipient that will make it 
possible to see the character either as 
ator ad, for example. The visual sys- 
tem, accustomed to resolving ambi- 
guities at the letter level using word- 
level information, will see the 
character appropriately. This encod- 
ing, depending as it does on sublimi- 
nal cues, language use, and idiom, 
should be extremely difficult to 
crack via computer, yet should be 
readable by any English-speaking 


person who can squint. 


haat Sure Dns 


Michael Swaine 
editor-in-chief 
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THEA 
WORLD HAS 
CRAM 


VALIDATED 


Meridian’s AdaVantage™ v2.0 
compiler is a complete 
implementation of the Ada® language 
that has been validated on the 

IBM PC/XT, |BM PC/AT, and the 
Zenith Z-248. Most of the 
representation clauses and 
implementation-dependent features 
are also available including 


apragma pack 

asize specification 

atask storage size 

afixed point small 

arecord representation clauses 
aaddress clauses 

apackage system 
arepresentation attributes 
apragma interface 
aunchecked storage deallocation 
aunchecked type conversions 


The compiler includes a complete set 
of utilities for managing the Ada 
program library and all of the 
standard packages including text_io, 
system, and calendar. 


BEST PRICE 
PERFORMANCE 


The Meridian AdaVantage 

compiler demonstrates the best 
price/performance of any PC Ada 
compiler. The compiler sells for $795 
in single quantities and it compiles 
about 1000 lines per minute on an 
IBM PC/AT. 








In addition to the production 
compiler, two other versions are 
available for general training and 
student use. The AdaTraining™ 
compiler sells for $395 and is 
intended for corporate and university 
educational environments. The 
AdaStarter™ compiler, priced at $129, 
incorporates all of the features of the 
AdaVantage production compiler, 
with certain limitations on the number 
of library units and the number of 
lines per compilation unit allowed. 
The full price of the AdaStarter 
compiler can be applied to a later 
purchase of the AdaVantage 
production compiler. 


ADDITIONAL 
PRODUCTS 


Two optional packages, priced at $50 


each, that provide DOS environment 
support and miscellaneous utility 
routines are currently available. A 
source-level debugger and Ada 
editor will be available this Fall. 


Ada is a registered trademark of the U.S. Government (AJPO). AdaVantage, AdaTraining, and AdaStarter are 
trademarks of Meridian Software Systems, Inc. References to other computer systems use trademarks 


owned by the respective manufacturers. 
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CONFIGURATION 


The compilers all run in a standard 
PC configuration with 640K of 
memory, a hard disk, and DOS v2.1 or 
higher. 


To order today, or get more 
information, call toll-free 
1-800-221-2522. 





23141 Verdugo Drive, Suite 105 
Laguna Hills, CA 92653 
800/221-2522 (outside Calif.) 
714/380-9800 (inside Calif.) 
Telex: 650-268-0547 MCI 
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et 386 is the Ultimate Accelerator Upgrade for Your AT 


Announcing an end to obsolescence. asv Uperade 
Orchid Technology’s Jet 386™ accel- EB y “PS Norton SI 


erator card extends the life of your 
computer investment into the 1990s— 
it puts power in your AT that you 
won't outgrow. 


hree Times Faster rom the People 
than an AT Who Started It All 


It’s up to three times faster than an Orchid combined 80386 power with 


AT depending on the application, and the technology perfected for the XT in 
speed is just one benefit. Unequalled the TinyTurbo and PCturbo 286e. Like 


Easy to use, there’s nothing new 
to learn and no new programs to buy. 
At 25% of the cost of buying a new 386 
PC, it’s easy on your pocketbook, too. 





IBMXT IBMAT JET 386 


compatibility and provisions for these critically acclaimed accelerators, 

upcoming 386 software mean your Jet 386 is built for lasting value. 

Jet 386 will handle whatever the future — Call Orchid to find out how you can : 

has in store: CAD, spreadsheets, experience the future today. And ask 2 

networking... how Orchid can modernize your 
whole office with turbos, graphics, . MAU Lib 
networking, and multifunction Innovative Add-Ons 
products. 45365 Northport Loop West 

ie peak Nai aig 286 are trademarks of Orchid Technology. All other products named are oa eG 
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